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MP/M 1.0 Functional Specification Section 1.0 

1.0 PRODUCT IDENTIFICATION 

Name: Multi-Programming monitor control program for 
microcomputer system development 

Mnemonic: MP/M 1.0 

1.1 Overview 

The purpose of a multi-programming monitor control program is to 
provide a microcomputer system development tool which enables 
multiple users to: develop and debug software using a single 
microcomputer. 
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MP/M 1.0 Functional Specification Section 2.0 

2.0 PRODUCT RATIONALE 

2.1 Design Objectives 

The MP/M 1.0 operating system is intended to "be an upward 
compatible version of CP/M 2.0 with a number of added facilities. 
These added facilities are contained in new logical sections of 
MP/M called the extended I/O system (XIOS) and the extended disk 
operating system (XDOS). As an upward compatible version, users 
will be able to easily make the transition from CF/M 2.0 to the 
MP/M 1.0 operating system. Infact, existing CP/M 2.0 *. COM files 
can be run under MP/M 1.0, providing that the program has been 
correctly written. That, is;, only BDOS calls are made for I/O, no 
direct BIOS calls are allowed. There must also be at least 4 bytes 
of extra stack in the CP/M 2.0 *.COM program. 

The following basic facilities are provided: 

a. Multi-terminal support 

b. Multi-Programming at a single terminal 

c. Concurrency of I/O and CPU operations 

d. Inter-process communication, mutual 

exclusion and synchronization 

e. Ability to operate in sequential, polled 

or interrupt driven environments 

f. System timing functions 

g. Logical interrupt system utilizing flags 
h. Selection of system options at system 

generation time 
i. Dynamic system configuration at load time 

The following optional facilities are provided: 

a. Spooling list files to the printer 

b. Scheduling programs to be run by date and time 

c. Displaying complete system run-time status 

d. Setting and reading of the date and time 
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MP/M 1.0 . Junctional Specification Section 3.0 

3.0 SYSTEM REQUIREMENTS 

3.1 Hardware Environment 

The hardware environment- for MP/M 1.0 must include an 8080 or 
Z80 CPU, a minimum of 32K of memory, one or more consoles, 1 to 
16 floppy disk drives, and a clock/timer interrupt. 

;,,The distributed form -of the:- T MP/M 1,0 operating system is 

configured: for a polled^ I/O environment with a single console. 

Multiple processes can be. run in this mode. To improve the 

. system performance ""and capability the following incremental 

hardware additions can be utilized by the operating system: 

a . Full&Interrupt&Sys tern 
b'i Bankeds Memory : 
cz Multiple* Consoles 
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MP/M 1.0. Functional Specification Section 4.0 

4.0 PERFORMANCE OBJECTIVES 

4.1 Memory Size 

The basic MP/M 1.0 operating system' should require no more than 
16K bytes of memory when configured for a single console. Each 
additional console will require 256 bytes. 

Optional resident system processes can be specified at system 
generation which will require varying amounts of memory. 

4.2 Speed; 

Vhen MP/M 1.0 is configured for a single console and is 
executing a single process, its speed will approximate, that of CP/M 
2.0. In environments where either multiple processes and/or users 
are running the speed of each individual process will be degraded 
in proportion to the amount of I/O and compute resources required. 
A process which performs a large amount of I/O in proportion to 
computing will exhibit only minor speed degradation. This also 
applies to a process that performs a large amount of computing, but 
is running concurrently with other processes that are largely I/O 
bound. On the other hand, significant speed degradation will occur 
in environments in which more than one compute bound process is 
running. 

4.3 Reliability 

Reliability of the file structure is enhanced by storage 
allocation methods which ensure that, in the event of a 
catastrophic hardware failure such as power fail or program error, 
the integrity of the file system is maintained. 

At' the user interface, parameters to critical system calls are 
checked to determine if the integrity of the resident operating 
system would be adversely affected by the requested function. 

4.4 Maintainability 

The MP/M 1.0 operating system is designed so that it can be 
independently maintained by OEMs. This places a significant 
requirement on the maintainability of this software product. Both 
the data structures utilized by the operating system and the 
algorithms implemented to manipulate the data structures ^.are 
described in detail in the design specification. The coding 
practices employed, and in particular the use of a high level 
language, should facilitate the maintainence . 
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MP/M 1.0 Functional Specification Section 5.0 

5.0 DOCUMENTATION 

5.1 External and End User 

A form of this MP/M 1.0 functional Specification is used to 
generate a User's Guide and an Alteration Guide. This level of 
documentation describes how to use and generate the operating 
system. There are no data structures or implementation algorithms 
presented. However, there are numerous examples illustrating each 
of the operating system primitives. 

5.2 Internal and OEM 

.•:r The internal and OEM documentation is provided in the MP/M 1.0 
Design! Specif icationl— r This document describes the data structures 
and implementation algorithms of the operating system. It is 
intended that this level of documentation will enable an OEM to 
maintain his own system. Included with the internal and OEM 
documentation are relevant portions of the source listings for the 
operating system. The-use-of a high level implementation language 
simplifies-" the- documentation .task. The listings, used in 
conjunction ; with the^'Design Specification, describe the purpose of 
each procedure, entry and- exit '- conditions , the data structures 
manipulated, and the details of the algorithms. 
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MP/M 1.0 Functional Specification Section 6.1 

6.0 DESCRIPTION OF FEATURES 

The intent of this section is to provide a detailed description of 
MP/M 1.0 features. Emphasis has been placed on describing each of the 
system primitives. This is in contrast* to an MP/M 1.0 User's Guide, 
prepared using this functional specif icaton , which would emphasize the 
operator interface to the system. The operator interface is covered 
in this document in section 6.5 on console commands / operator 
interface . - ■ 

Because MP/M 1.0 is a multi-programming system its primitives are 
considerably more complex than those of a sequential operating system 
such as CP/M 2.0. For this reason many cf the operating system 
primitives^ may^be: reserved t f or fpriviledged execution modes. 
PrimitivesT in; "this class /include^ those of memory allocation, process 
creation and termination. 

6.1 Description of Basici>I/0 Facilities 

In general, : . the Basic I/O System (BIOS) facilities are identical 
to that^of CP/M 2.0; Therefore, the reader is referred to m the 
Digital-., Research document titled "CP/M System Alteration Guide" to 
obtain a -description of , the BIOS operations. Only exceptions to 
CP/M 2.0 BIOS are noted here. . 

6.1.1 Cold Start 

The BIOS cold start procedure can be used for any device 
initialization left undone by the bootstrap. Typically the cold 
start procedure simply jumps to perform a BDOS system reset. 

6.1.2 Warm Start 

The BIOS warm start procedure makes a BDOS system reset call 
which terminates the calling process. 

6.1.3 Console Status 

The BIOS console status procedure is identical to CP/M 2.0 
with the exception that the console number for polling is passed 
to the procedure in the D register. 

6.1.4 Console Character In 

The BIOS console character in procedure is identical to *CP/M 
2.0 with the exception that the console number for input is 
passed to the procedure in the D register. 

6.1.5 Console Character Out 

The BIOS console character out procedure is identical to CP/M 
2.0 with the exception that the console number for output is 
passed to the procedure in the D register. 

6.1.6 List Character Out 
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MP/M 1.0 Functional Specification Section 6.1 



6.1.7 Punch Character Out 

The BIOS punch character put procedure is not supported. 
BDOS calls to write punch are defaulted to write console. 

6.1.8 Reader Character In 

The BIOS reader .character in procedure is not supported. 
BDOS. calls- to read reader are defaulted to read console. 

6. 1.9 ::.' Move; Head toiHorre Position 
6-1^ 10^ Select Disk; 

6.1.11 Set Track Number 

6.1.12 Set Sector Number 

6.1.13 Set DMA Address 

6.1.14 Read Disk" 

6.1.15 Write Disk 

6.1.16 List Device Status 
6.1.1? Sector Translate 
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6.2 Description of Extended I/O Facilities 

The extended I/O facilities include the hardware environment 
dependent code to poll devices, handle interrupts and perform 
memory management functions. 

6.2.1 Memory Selection/Protection 

Each time a process is dispatched to run a call is made to 
the XIOS memory protection procedure. If the hardware 
environment has memory hank selection/protection it can use the 
passed parameter to select/protect areas of memory. The passed 
parameter is a pointer to a memory descriptor from which the 
memory base, size, attrihutes and hank of the executing process 
can he determined. Thus, all other regions of memory can to he 
write protected. 



SELMEMORY 



BC -> MEMORY DESCRIPTOR 
BASE BYTE, 
SIZE BYTE, 
ATTRIB BYTE, 
BANK BYTE; 



RET 



6.2.2 Device Polling Routines 



In hardware environments wh 
polled environment can he ere 
handler. The device poll hand 
XDOS with the device* to he po 
parameter. The user written P 
to access the device polling r 
the addresses cf the device p 
is made hetween a device numhe 
procedure itself. The polling 
0PEH in the accumulator if 
device is not ready. 



ere there are no 
ated "by coding an X 
ler (POLLDEVICE) is 
lied in the C regis 
OLLDEVICE procedure 
outines via a table 
oiling procedures, 
r to he polled an 
procedures must re 
the device is ready 



interrupts a 

IOS device poll 

called by the 

ter as a single 

can be coded 

which contains 

An association 

d the polling 

turn a value of 

, or 00H if the 



'OLLDEVICE: 




MVI 


B,0 


LXI 


H,DEVPTB 


DAD 


B 


DAD 


B 


MOV 


A,M 


INX 


H 


MOV 


E,M 


MOV 


L,A 


PCHL 





DEVPTB 



DW 



J DEVICE POLLING TABLE 



C0N1IN 
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DW 



C0N2IN 





DW 


CONIOUT 




DW 

... 


C0N20DT 


CONUN : 








IN 


CNS1 




ANI 


RXRDY 




RZ 






MY I 


A,0EJH 




•RET 




C0N2IN: 








IN 


CNS2 




ANI 


RXRDI 




RZ 






MVI 


A f 0fEH 




RET 





i' CONSOLE 1 INPUT POLL 

.; RETURNS ZERO IOR NOT READY 
J RETURNS EFH EOR READY 



6.2.3 Start Clock 

When a process delays for a specified number of ticks 
system time unit, the start clock procedure is called. 



of the 



The purpose of the STARTCLOCK procedure is to eliminate 
unneccessary system clock interrupt overhead when there are not 
any delayed processes. 

In some hardware environments it is not acutally possible to 
shut off the system time unit clock while still maintaining the 
one second flag used for the purposes of keeping time of day. 
In this situation the STARTCLOCK procedure simply sets a boolean 
variable to true, indicating that there is a delayed process. 
The clock interrupt handler can then determine if system time 
unit flag is to be set by testing the boolean. 



STARTCLOCK: 
MVI 
OUT 
RET 



A,CLKSTRT 
CLK1PORT 



-OR- 



STARTCLOCK: 
MVI 
STA 
RET 



A,0EFH 
TICKING 



6.2.4 Stop Clock 
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MP/M 1.0 Junctional Specification Section 6.2 

When the system delay list is emptied the stop clock 
procedure is called. 

The purpose of the STOPCLOCE procedure is to eliminate 
unneccessary system clock interrupt overhead when there are no 
delayed processes. 

In some hardware environments it is not acutally possible to 
shut off the system time unit clock while still maintaining the 
one second flag used for the purposes of keeping time of day. 
(i.e. a single clock/timer interrupt source is used.) In this 
situation the STOPCLOCI procedure simply sets a boolean variable 
to false, indicating that there are no delayed processes. The 
clock interrupt handler can then determine if the system time 
unit flag is to be set by testing the boolean. 



STOPCLOCK: 




MVI 


A,CLKSTP 


OUT 


CLK1PORT 


RET 





-OE- 



STOPCLOCK: 

XRA A 

STA TICKING 

RET 



6.2.5 Exit Region 

The purpose of the exit region procedure is to test a 
preempted flag, set by the interrupt handler. enabling 
interrupts if preempted is false. This procedure allows 
interrupt service routines to make MP/M system calls, leaving 
interrupts disabled until completion of the interrupt handling. 



EXITREGION: 




LDA 


PREEMPTED 


ORA 


A 


RNZ 




EI 




RET 





6.2.6 Maximum Console 

The purpose of the maximum console procedure is to enable the 
calling program to determine the number of physical consoles 
which the BIOS is capable cf supporting. The number of physical 
consoles is returned in the A register. 

MAXCONSOLE: 

(All Information Contained Herein is Proprietary to Digital Research.) 
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MVI 

RET 



A,NMBCNS 



6.2.7 System Initialization 

The purpose of the system initialization procedure is to 
perform required MP/M cold start initialization. Typical 
initialization includes setting up interrupt jump vectors, 
interrupt masks, and initializing the disk file system. 



DISKINIT 



SYSINIT: 



MVI 
STA 
LXI 
SHLD 

LDA 
OUT 

MVI 
CALL 



EQU 



13 



STORE JUMP Q RESTART 7 



A,0C3H ; 
0038H 

H,INTHNDLR 
0039H 



INTMSK . 5 INITIALIZE INTERRUPT MASK 
IMSKPORT 

C, DISKINIT 

XDOS J INTIALIZE DISK FILE SYSTEM 



RET 



6.2.8 Interrupt Service Routines 

The MP/M 1.0 operating system is designed to work with 
virtually any interrupt architecture, be it flat or vectored. 
The function of the code operating at the interrupt level is to 
save the required registers, determine the cause of the 
interrupt, and to set an appropriate flag. Operation of the 
flags are described in sections 6.4.5 and 6.4.6. Briefly, flags 
are used to synchronize asynchronous processes. One process* 
such as an interrupt service routine, sets a particular flag 
while another process waits for the flag to be set. 

At a logical level above the physical interrupts the flags 
can be regarded as providing 256 levels of virtual interrupts. 
Thus, logical interrupt handlers wait on flags to be set by the 
physical interrupt handlers. This mechanism allows a. common 
XDOS to operate on all microcomputers, regardless of the 
hardware environment. 



As an example consider a hardware 
interrupt structure. That is, a 



environment with a flat 

r , -_, ~ single interrupt level is 

provided and devices must be polled to determine the cause of 
the interrupt. Once the interrupt cause is determined a 
specific flag is set indicating that that particular interrupt 
has occurred. 
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At the conclusion of the interrupt processing a jump should 
he made to the MP/M dispatcher, This is done by jumping to the 



PDISP entry point, 
processor to the 
process readied hy 
and then to enahle 
of the process. 



The effect of this jump is to give the 

highest priority ready process, usually the 

setting the flag' in the interrupt handler, 

interrupts before jumping to resume execution 



FLAGSET EQU 


134 


INTRPT: 




PUSH 


PSW 


PUSH 


B 


PUSH 


D 


PUSB ■ 


-,H 


MVI 


A,0FFH 


STA 


PREEMPT 


IN 


.CNSIN1 


ANI 


RXRDY 


JZ 


POLL01 


MVI 


E.CIN1 


JMP 


FOUNDINTR 


POLL01: 




IN 


CNSIN2 


ANI 


RXRDT 


JZ 


POLL02 


MVI 


E,CIN2 


JMP 


FOUNDINTR 


POLL02 : 

...» 




FOUNDINTR: 




MVI 


C, FLAGSET 


CALL 


XDOS 


XRA 


A 


STA 


PREEMPT 


POP 


H 


POP 


D 


POP 


B 


POP. 


PSW 


JMP 


PDISP 



; INTERRUPT ENTRY 



; SET PREEMPTED TRUE 

J POLL CONSOLE 1 

; JUMP TO POLL NEXT 

; POLL CONSOLE 2 

; JUMP TO POLL NEXT 



CALL XDOS TO SET FLAG 



SET PREEMPTED FALSE 



J JUMP TO DISPATCHER 

Note in the previous example that the interrupted processes 
stack is used to save the registers and to make the XDOS call. 
If this is not-acceptable, that is the user process has 
insufficient stack, a separate stack must be used. 

The technique of using a local stack in the interrupt handler 
is shown below: 

INTHND: 
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PUSH 


PSW 


SHLD 


SVDHL 


LXI 


H.0 


DAD 


SP 


SHLD 


SVDSP 


LXI 


SP,INTSTK+48 


PUSH 


D 


PUSH 


B 



J SAVE A & FLAGS 
; SAVE HL 



J SAVE USEES STK PTR 
J USE LOCAL INTRPT STK 



J NORMAL INTERRUPT HANDLING 





POP 


B 




POP 


D 




LHLD 


SVDSP 




SPHL 






LHLD 


SVDHL 




POP 


PSW 




JMP 


PDISP 


SVDHL: 


• • • 

DS 


2 


SVDSP: 


DS 


2 


INTSTK: 


DS 


48 



J RESTORE USERS STK PTR 
J RESTORE HL 
J RESTORE A & FLAGS 
J JUMP TO DISPATCHER 



6.2.9 Time Base Management 

The time base management provided by the BIOS performs the 
operations of setting the system tick and one second flags. As 
described in sections 6.2.3 and 6.2.4 the start and stop clock 
procedures control the system tick operation. The one second 
flag operation is logically separate from the system tick 
operation even though it may physically share the same 
clock/timer interrupt source. 

The purpose of the system time unit tick procedure is to set 
flag #1 at system time unit intervals. The system time unit is 
used by MP/M to manage the delay list. 



The purpose of the one second flag procedure is to 
#2 at each second of real time. Flag #2 is used 
maintain a time of day clock. 



set flag 
by MP/M to 



The following example illustrates the handling of a single 
clock/timer interrupt which provides continuous interrupts each 
16.67 milliseconds. 



CLK60HZ 



60 HZ CLOCK INTERRUPT ENTRY 



LDA 
ORA 



TICKING 

A 



; TEST TICKING 
J SYSTEM TIME 



TRUE INDICATES 
UNIT TICK REQD 
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Specif icati 


JZ 


NOTICKING 


MVI 


C,FLAGSET 


MVI 


E,l 


CALL 


XDOS 


NOTICKING: 




LXI 


H f CNT60 


DCR 


M 


JNZ 


NOT1SEC 


MVI 


M,60 


MVI 


CFLAGSET 


MVI 


E,2 


CALL 


XDOS 


NOT1SEC: 





Section 6.2 



; SET FLAG #1 



J DECREMENT 60 TICK COUNTER 
5 JUMP IF NOT ONE SECOND 
; RESET COUNTER 



5 SET FLAG #2 

J CONTINUE OTHER PROCESSING 



CNT60: DB 

TICKINGS .-:■;■- 

DS 



60 

1 



60 HZ COUNTER 



5 BOOLEAN SET ON /OFF BT CLOCK 
; START/STOP PROCEDURES 



6.2.10 BIOS External Jump Vector 

In order for the BIOS to access the BDOS a jump vector is 
dynamically "built by the MP/M loader and placed directly below 
the base. address of the BIOS. The jump vector contains three 
entry points which provide access to the MP/M dispatcher, XDOS 
and BDOS. 

The following code illustrates the equates used to access the 
jump table: 



BASE 

PDISP 
XDOS 



EQU 

EQU 
EQU 



0000H 



? BASE OF THE BIOS 



BASE-3 J MP/M DISPATCHER 
PDISP-3 J MP/M BDOS/XDOS 



CALL 



XDOS 



; CALL TO XDOS THRU JUMP VECTOR 
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6.3 Description of Basic Disk Operating System 

In general, the Basic Disk Operating System (BDOS) facilities 
are identical to that of CP/M 2.0. Therefore, the reader is 
referred to the Digital Research document titled "CP/M Interface 
Guide" to obtain a description of the BDOS operations. Only 
exceptions to CP/M 2.0 BDOS are noted here. 

6.3.1 System Reset 

Vhen a user program performs the BDOS system reset operation 
the user program process is terminated, usually returning 
control to the terminal message processor. 

6.3.2 Read Console 

6.3.3 Write Console 

6.3.4 Read Reader 

The BDOS read reader is not supported in MP/M 1 1.0. BDOS read 
reader calls are defaulted to read console operations. 

6.3.5 Vrite Punch 

The BDOS write punch is not supported in MP/M 1.0. BDOS 
write punch calls are defaulted to write console operations. 

6.3.6 Write List 

6.3.7 Direct Console I/O 

6.3.8 Get I/O Status 

The BDOS get I/O status is not supported in MP/M 1.0. BDOS 
get I/O status calls are treated as a no operation. 

6.3.9 Set I/O Status 

The BDOS set I/O status is not supported in MP/M 1.0. BDOS 
set I/O status calls are treated as a no operation. 

6.3.10 Print Buffer 

6.3.11 Read Buffer 

6.3.12 Interrogate Console Ready 

6.3.13 Return Version Number 

6.3.14 Reset Disk System 

The BDOS reset disk system call is qualified in MP/M 1.0. If 
more than one console is active each console must consent to 
resetting of the disk system. This is done by displaying the 
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following message on each console, and then a reset is performed 
onlj if all terminals respond with affirmative. 

Confirm disk system reset (T/N) ? 

6.3.15 Select Disk 

6.3.16 Open File 

6.3.17 Close File, 

6.3.18 Search First 

6.3.19 Search Next 

6.3.20 Delete File 

6.3.21 Read Record 

6.3.22 Write Record, 

6.3.23 Make File 

6.3.24 Rename File 

6.3.25 Interrogate Login 

6.3.26 Interrogate Disk 

6.3.27 Set DMA Address 

6.3.28 Interrogate Allocation 

6.3.29 Write Protect Assiigned Disk 

6.3.30 Interrogate R/O Bit Vector 

6.3.31 Set File Attributes 

6.3.32 Get Address of Disk Params 

6.3.33 Set/Get User Code 

6.3.34 Read Random 

6.3.35 Write Random 

6.3.36 Compute File Size 

6.3.37 Set Random Record 
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6.4 Description of Extended Disk Operating System 

Access to the extended disk operating system (XEOS) facilities- 
is accomplished by passing a function number and information 
address to the XDOS. In general, the function number is passed in 
Register C, while the information address is passed in Register 
pair D,E. Note that this conforms to the PL/M Conventions for 
parameter passing, and thus the following PL/M procedure is 
sufficient to link to the XDOS when a value is returned: 

M0N2: •/;... /* XDOS. FUNCTION */ 

PROCEDURE (FUNC, INFO) BITE EXTERNAL?. 

DECLARE FUNC BYTE? 

DECLARE INFO ADDRESS J : -/ 



END , M.0N2t 



or 



MON1: /* XDOS PROCEDURE */ 

PROCEDURE (FUNC, INFO) EXTERNAL? 
DECLARE FUNC BITE? 
DECLARE INFO ADDRESS? 
END MON1? 

if no returned value is expected. 

6.4.1 Absolute Memory Request 

The purpose of the absolute memory request operation is to 
allocate an absolute block of memory specified by the passed 
memory descriptor parameter. This function allows 
non-relocatable programs, such as CP/M 2.0 *.COM files based at 
the absolute TPA address of 0100E, to run in the MP/M 1.0 
environment. The single passed parameter is the address of a 
memory descriptor. The memory descriptor contains four bytes: 
the memory segment base page address, the memory segment page 
size, the memory segment attributes, and bank. The only 
parameters required are the base and size, the other parameters 
are filled in by XDOS. The operation returns a "boolean" 
indicating whether or not the allocation was made. A returned 
value of FFH indicates failure to allocate the requested memory 
and a value of indicates success. Note that base and size 
specify base page address and page size where a page is 256 
bytes. 

The following example illustrates a request for 32K of memory 
based at location 0000H: 

DECLARE MEMORY$DESCIPTOR STRUCTURE ( 
EASE BYTE, 
SIZE BYTE, 
ATTRIBS BYTE 
BANK BYTE ) ^INITIAL (00H,80H ,0 ,0) ? 

IF M0N2 (128,.MEM0RY$DESCRIPT0R) THEN 
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do; 

PRINTERROR ('Absolute memory request failed.'); 

end; " 

6.4.2 Relocatable Memory Request 

The purpose of the relocatable memory request operation is to 
allocate the requested contiguous memory pages to the calling 
program. The single passed parameter is the address of the 
memory descriptor. The only; memory descriptor parameter entered 
by the calling program is the size , the other parameters, base, 
attributes and size, are filled c in by the memory allocation 
procedure* The operation returns a boolean indicating whether 
or not the memory request could be satisifed. A returned value 
of EEH indicates a failure to satisfy the request. Note that 
base and' size specify base page address and page size where a 
page is 256 bytes. 

DECLARE MEMORISES CIPTOR STRUCTURE ( 
RASE BYTE, 

SIZE BYTE, 

ATTRIBS BYTE 

BANK BYTE ) 'iNITIAL (0,40H,0,0); 

ie m0n2 (129,.mem0ry$descript0r) then 
do; 

PRINTERROR ('Relocatable memory request failed.'); 

end;' • 

6.4.3 Memory Jree 

, The purpose of the memory free operation is to release the 
specified memory segment back to the operating system. The 
passed parameter is the address of a memory descriptor. Nothing 
is returned as a result of this operation. 

CALL MON1 (130,BUEEERADR) J 

6.4.4 Poll 

The purpose of the poll operation is to poll the specified 
device until a ready condition is received. The calling process 
relinquishes the processor until the poll is satisfied, allowing 
other processes to execute. 

The following code could be used to implement a generalized 
console input in a polled system: 

CONIN: 

PROCEDURE (CONSOLE) BYTE REENTRANT; 
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■ DECLARE CONSOLE BYTE; 

CALL MON1 (130 ? CONSOLE) ; 
DO CASE console; 

/* CONSOLE 1 */ 

DO? 

• • « 

return input(cnsi); 
end; 



/* CONSOLE n */ 

do; 

RETURN INPUT(CNSn); 

end; 
end; /* CASE */ 
end conin; 



6.4.5 -Slag. Wait 

The purpose of the flag wait operation is to cause a process 
to relinquish the processor until the flag specified in the call 
is set. The flag wait operation is used in an interrupt driven 
system to cause the calling process to 'wait' until a specific 
interrupt condition occurs. 

The generalized console input example used in poll (section 
6.4.4) could be re-written as follows: 

CONIN: . 

PROCEDURE (CONSOLE) BYTE REENTRANT; 
DECLARE CONSOLE BYTE; 



CALL MON1 {132, CONSOLE); 

DO CASE console; 

/* CONSOLE 1 */ 

do; 

RETURN INPUT(CNSl); 

end; 



/* CONSOLE n */ 

do; 

RETURN INPUT(CNSn); 

end; 
end; /* CASE */ 
end conin; 

6.4.6 Flag Set 
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The purpose of a flag set operation is to wakeup a waiting 
process.. The flag set operation is usually performed by an 
interrupt service routine after servicing an interrupt and 
determining which flag is to he set. 

The following example shows an interrupt service routine for 
a system with vectored interrupts and a single device 
interrupting on a specific level. The reader is referred to 
section 6.2.8 for an assembly language example of the flag set 
operation in a flat interrupt system. 

DI SKINT: 

PROCEDURE INTERRUPT 35 

CALL MON1 (133,DISKINTRPT); 
END DI SKINT* 

6.4.7 Make Queue 

The purpose of the make queue operation is to setup a queue 
control "block. A queue is configured as either circular or 
linked depending upon the message size. Message sizes of to 2 
hytes use circular queues while message sizes of 3 or more bytes 
use linked queues. 

A single parameter is passed to make a queue, the queue 
control block address. The queue control block must contain the 
queue name, message length, number of messages, and sufficient 
space to accomodate the messages (and links if the queue is 
linked). 

The following example illustrates how to setup a queue 
control block for a circular queue with 80 messages of a one 
byte length. 

DECLARE CIRCULAR$QUEUE STRUCTURE ( 
QL ADDRESS, 
NAME(8) BYTE, 
MSGLEN ADDRESS, 
NMBMSGS ADDRESS, 
DQPH ADDRESS, 
NQPR ADDRESS, 
MSG$IN ADDRESS, 
MSG$0UT ADDRESS, 
MSG$CNT ADDRESS, 
BUFFER (80) BITE ) 
INITIAL (0,'CIRCQUE ',1.80); 



RET = M0N2 (134,.CIRCULAR$QUEUE); 
The elements of the circular queue shown above are defined as 
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follows: 

QL = 2 byte link, set by system 
NAME = 8 ASCII character queue name, 

set by user 
MSGLEN = 2 bytes, length of message, 

set by user 
NMBMSGS = 2 bytes, number of messages, 

set by user 
DQPH = 2 bytes, DQ process head, 

set by system 
NQPH = 2 bytes, NQ process head, 

set by system 
MSG$IN = 2 bytes, pointer to next 

message in, set by system 
MSG$OUT = 2 bytes, pointer to next 

message, out, set by system 
MSG$CNT = 2 bytes, number of messages 

to be read, set by system 
BUFFER = n bytes, where n is equal to 

the message length times the 

number of messages , space 

allocated by user, set by system 

Queue Overhead = 24 bytes 

The following example illustrates how to setup a queue control 
block for a linked queue containing 4 messages, each 33 bytes in 
length: 

DECLARE LINKED$QUEUE STRUCTURE ( 
QL ADDRESS , 
NAME (8) BYTE, 
MSGLEN ADDRESS, 
NMBMSGS ADDRESS, 
DQPH ADDRESS, 
NQPH ADDRESS, 
MH ADDRESS, 
MT ADDRESS, 
BH ADDRESS, 
BUFFER (140) BYTE ) 
INITIAL (0,'LNKQUE ',33,4); 



RET = M0N2 (134,.LINKED$QUEUE); 

The elements of the linked queue shown above are defined as 
follows : 

QL =2 byte link, set by system 
NAME = 8 ASCII character queue name, 
set by user 
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MSGLEN = 2 bytes, length of message, 

set by user 
NMBMSGS = 2 bytes, number of messages, 

set by user 
DQPH = 2 bytes, DQ process head, 

set by system 
NQPE = 2 bytes, NQ process head. 

set by system 
MH =2 bytes, message head, 

set by system ? - 
MT =2 bytes, message tail, 

set by system: r* 
BH =2 bytes, buffer head, 

set by system-xsn 
BUFFER = n bytes where; nris equal to 

the message length plus two, 

times the number; of messages, 

space allocated by the user, 

set by the system 



6.4.8 Open Queue 

The purpose of the open queue operation is to place the 
actual queue control block address into the user queue control 
block. The result of this operation is that a user program can 
obtain access to system queues by knowing only the queue name . 
the actual address of the queue itself is obtained as a result 
of opening -the queue. 



Once a queue has been 

written to using the 

MSGADR field of the user 

local user buffer. When 



opened , the queue may be read from or 
queue read and write operations. The 
queue control block is the address of a 
a read queue operation is performed 



data is placed at the buffer pointed - to by MSGADR. When a write 
queue operation is performed data is written into the actual 
queue from the data in the buffer pointed to by MSGADR. 

The operation returns a boolean indicating whether or not the 
open queue operation found the queue to be opened. A returned 
value of 0FFH indicates failure while a zero indicates success. 

The following example illustrates the opening of the "SPOOL" 
queue: 

DECLARE USER$QUEUE$CONTROL!?BLOC£ STRUCTURE ( 
POINTER ADDRESS, 
MSGADR ADDRESS, 
NAME (8) BITE ) 
INITIAL (0,. BUFFER, 'SPOOL '); 

DECLARE BUFFER (33) BYTE,* 
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RET = M0N2 fl35, ,USER$QUEUE$CONTROL$BLOCK ) J 

The elements of the user queue control block shown above are 
defined as follows: 

POINTER = 2 bytes, set by system to address of 

actual queue 
MSGADR = 2 bytes, address of user buffer, 

set by user 
NAME = 8 bytes, ASCII queue name, 

set by user 

6.4.9 Delete Queue 

The purpose of the delete queue operation is to remove the 
specified queue from the queue list. A single parameter is 
passed to delete a queue, the address of the actual queue. This 
value can be obtained from the POINTER field of a currently open 
user queue control block. 

The operation returns a boolean indicating whether or not the 
delete queue operation found the queue and deleted it. A 
returned value of 0FFH indicates failure while a zero indicates 
success. 

The following example illustrates the deletion of the 
"TEMPQUE " queue: 

DECLARE USER$QCB STRUCTURE ( 
POINTER ADDRESS, 
MSGADR ADDRESS, 
NAME (8) BYTE ) 
INITIAL (0,. BUFFER, 'TEMPQUE ' ) J 

DECLARE BUFFER (16) BYTE,* 



RET = M0N2 (136,USER$QCB. POINTER); 

6.4.10 Read Queue 

The purpose of the read queue operation is to read a message 
from a specified queue. If no message is available at the queue 
the calling process relinquishes the processor until a message 
is posted at the queue. The single passed parameter is the 
address of a user queue control block. When a message is 
available at the queue, it is copied into the buffer pointed to 
by the MSGADR field cf the user queue control block. 

The following example illustrates the read queue operation: 
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DECLARE USER^QCB STRUCTURE ( 
POINTER ADDRESS, 
MSGADR ADDRESS, 
NAME (8) BYTE ) 
INITIAL (0, .BUFFER t 'DATAQUE ' ) J ' 

DECLARE BUFFER (80) BITE J 



CALL MON1 (137,.USER$QCB)? 

6.4.11 Conditional Read Queue 

The. purpose of the- conditional read queue operation is to 
read a message from a specified queue if a message is available . 
The single: passed parameter is the address of a user queue 
control block. If a message is available at the queue, it is 
copied into the buffer pointed to by the MSGADR field of the 
user queue control block. 

The operation returns, a boolean indicating whether or not a 
message -was available at the queue. A returned value of 0FFB 
indicates no message while a zero indicates that a message was 
available and that it was copied into the user buffer. 

The following example illustrates the conditional read queue 
operation: 

DECLARE USER$QCB STRUCTURE ( 
POINTER ADDRESS, 
MSGADR ADDRESS, 
NAME (8) BYTE ) 
INITIAL ( t . BUFFER, 'DATAQUE '); 

DECLARE BUFFER (80) BYTE J 



RET = M0N2 (138,.USER$QCB) J 

6.4.12 Write Queue 

The purpose of the write queue operation is to write a 
message to a specified queue. If no buffers are available at 
the queue the calling process relinquishes the processor until a 
buffer is available at the queue. The single passed parameter 
is the address of a user queue control block. When a buffer is 
available at the queue, the buffer pointed to by the MSGADR 
field of the user queue control block is copied into the actual 
queue. 
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The following esam 

DECLARE USER$QC3 STR 
POINTER ADDRESS, 
MSGADR ADDRESS, 
NAME (8) BYT-S ) 
INITIAL (0 T . BUFFER, 

DECLARE BUFFER (80) BY r . 



the write queue operation: 



CALL MON1 (139,.USER$QCB); 



6.4.13 Conditional Write Qu 

The purpose of the condi 
write a message to a spec: 
The single passed parameter 
control block. If a "b- 
buffer pointed to by the MSi 
block is copied into the ac 

The operation returns a ; 
buffer was available at 
indicates no buffer while a 
available and that the user 

The following example il 
operation: 

DECLARE USER$QCB STRUCTURE 
POINTER ADDRESS, 
MSGADR ADDRESS, 
NAME (8) BYTE ) 
INITIAL (0,. BUFFER, 'DATA': 

DECLARE BUFFER (80) BYTE; 



i te queue operation is to 

ue if a buffer is available. 

address of a user queue 

available at the queue, the 

i of the user queue control 



-dicating whether or not a 
e. A returned value of 0FFH 
icates that a buffer was 
3 copied into i t . 

the conditional write queue 



RET = M0N2 (140, .USER$QCB) : 

6.4.14 Delay 

The purpose of the delay 
the calling process for 
units. Use of the delay ope 
delay loop. It allows other 
while the specified peric 
unit is typically 60 Hz 
according to application. 



is to delay execution of 
fied number of system time 
ids the typical programmed 
s to use the processor 
elapses. The system time 
liseconds) "but may vary 
-rrple it is likely that in 
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Europe it would be 50 Hz (20 milliseconds). 

The delay is specif ed as a 16-bit integer. Since calling the 
delay procedure is usually asynchronous to the actual time base 
itself, there is some degree of uncertainty in the exact amount 
of time delayed. Thus a delay of 10 ticks gaurantees a delay of 
at least 10 ticks, but it may be as big as almost 11 ticks. 

In the following example the delay operation is used in a 
situation where a peripheral device, such as a CRT, requires a 
delay of NULL$.TIME following a line feed. 

IF CHAR = IF THEN 
DO? 

call mon1 (141, null$time); 
end; 

6.4.15 Dispatch ^ 

The uurpose of the dispatch operation is to allow the 
operating system to determine the highest priority ready process 
and then to give it the: processor . This call is provided in 
XDOS to allow systems without interrupts the capability of 
sharing the processor amoung compute bound processes. Since all 
user processes usually run at the same priority, invoking the 
dispatch operation at various points in a program will allow 
other users to obtain the processor in a round-robin fashion. 

Dispatch is intended for non-interrupt driven environments in 
which it is desirable to enable a compute bound process to 
relinquish the use of the processor. 

CALL M0N1 (142,0); 

• • 

Note the dummy parameter of in the M0N1 call. 

6.4.16 Terminate Process 

The purpose of the terminate process operation is tc 
terminate' the calling process. A single passed parameter 
indicates whether or not the process should be terminated if it 
is a system process. A 0FFH indicates that the process should 
be unconditionally terminated, a zero indicates that only a user 
process is to be deleted. There are no results returned frorr 
this operation, the calling process simply ceases to exist as 
far as MP/M is concerned. 

The following example illustrates the terminate process 
operation: 

EXIT: 

procedure; 
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CALL MON1 (143,0); 

END exit; 



CALL exit; 

6.4.17 Create Process 

The purpose of the create process operation is to create one 
or more processes fcy placing the passed process descriptors on 
the MP/M ready list. 

A single parameter is passed, the address of a process 
descriptor. The first field of the process descriptor is a link 
field which may point to other process descriptors. 

The following example illustrates the creation of two 
processes which execute the same piece of reentrant code: 

DECLARE CNS$HNDLR$1 STRUCTURE ( 
PL ADDRESS, 
STATUS BYTE, 
PRIORITY BYTE, 
STKPTR ADDRESS, 
NAME (8) BYTE, 
-CONSOLE BYTE, 
MEMSEG BYTE, 
B ADDRESS , 
THREAD ADDRESS, 
DISK$SET$DMA ADDRESS, 
DISK$SLCT BYTE, 
DCNT ADDRESS, 
SEARCHL BYTE, 
SEARCHA ADDRESS, 
SCRATCH (2) BYTE ) 

INITIAL ( .CNS$HNDLR$2,0,200,.CNS$1$STK(23) , 
'CNS1 M); 

DECLARE CNS$HNDLR$2 STRUCTURE f 
PL ADDRESS, 
STATUS BYTE, 
PRIORITY BYTE, 
STKPTR ADDRESS, 
NAME (8) BYTE, 
CONSOLE BYTE, 
MEMSEG BYTE, 
B ADDRESS, 

THREAD ADDRESS, 
DISK$SET$DMA ADDRESS, 
DISK$SLCT BYTE, 
DCNT ADDRESS, 
SEARCHL BYTE, 
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SEARCHA ADDRESS, 
SCRATCH (2) BYTE ) 
INITIAL (0,0,200, .CNS$2$STK(23) , 
'CNS2 ',2); 

DECLARE CNS$1$STK (23) ADDRESS; 
DECLARE CNS$2$STK (23) ADDRESS; 



CNS$1$STK(23) = .CNSiHNDLR;- 
CNS$2$STK(23) = .CNS$HNDLRf ; - 
CALL MON1 (144,.CNS$HNDLR$lj; 



CNS$HNDLR: - 

PROCEDURE REENTRANT; 

DECLARE BUFFER (80) BYTE? 



DO forever; 



end; 
end..cns$hndlr; 

The elements of the process descriptor shown above are defined 
as follows: 

PL =2 byte link field, initially set by 

user to address of next process 
descriptor, or zero if no more 

STATUS = 1 "byte, process status , set by system 

PRIORITY = 1 "byte, process priority, set "by user 

STKPTR = 2. bytes, stack pointer, initially set 

by user 

NAME = 8 bytes, ASCII process name, set by user 

CONSOLE - 1 byte, console to be used by process, 

set by user 

MEMSEG = 1 byte, memory segment table index 

B =2 bytes, system scatch area 

THREAD = 2 bytes, process list thread, set 

by system 

DISK$SET$DMA = 2 bytes, default DMA address, set by user 

DISK$SLCT = 1 byte, default disk 

DCNT = 2 bytes, system scratch byte 

SEARCHL = 1 byte, system scratch byte 

SEARCHA = 2 bytes, system scratch bytes 

SCRATCH = 2 bytes, system scratch bytes 
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6.4.18 Set Priority 

The purpose of the set priority operation is to set the 
priority of the calling process to that of the passed parameter. 
This function is useful in situations where a process needs to 
have a high priority during an initialization phase, hut after 
that is to run at a lower priority. 

•A single passed parameter contains the new process priority. 
There are no results returned from setting priority. 

The following example illustrates setting the priority to 
200: 



CALL M0N1 (145,200); 



6.4.19 Attach Console 

The purpose of the attach console operation is to attach the 
console specified in the CONSOLE field of the process descriptor 
to the calling process. If the console is already attached, the 
calling process relinquishes the processor until the console is 
detached and the calling process is the highest priority process 
waiting for the console. 

There are no passed parameters and there are no returned 
results . 

The following example illustrates the code to attach the 
console: 



CALL M0N1 (146,0); 



6.4.20 Detach Console 

The purpose of the detach console operation is to detach the 
console specified in the CONSOLE field of the process descriptor 
from the calling process. If the console is not currently 
attached, no action takes place. 

There are no passed parameters and there are no returned 
results. 

The following example illustrates the code to detach the 
console: 

CALL M0N1 (147,0); 
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6.4.21 Set Console 

The purpose of the set console operation is to detach the 
currently attached console and then to attach the console 
specified as a calling parameter. If the console to he attached 
is already attached to another process descriptor, the calling 
process relinquishes the processor until the console is 
available. 

A single passed parameter contains the console number to be 
attached. There are no returned results. 

The following example illustrates the code to attach console 
4: 



CALL M0N1 (148,4); 

... 

6.4.22 Assign Console -;■:: 

The purpose of the assign console operation is to directly 
assign the console to a specified process. This assignment is 
done regardless of whether or not the console is currently 
attached to some other process. A single parameter is passed to 
assign console which is the address of a data structure 
containing the console number for the assignment, an 8 character 
ASCII process name, and a boolean indicating whether or not a 
match with the console field of the process descriptor is 
required (true or 0IFH indicates it is required). 

The operation returns a boolean indicating whether or not the 
assignment was made. A returned value of 0EEE indicates failure 
to assign the console, either because a process descriptor with 
the specified name could not be found, or that a match was 
required and the console field of the process descriptor did not 
match the specified console. ■ A returned value of zero indicates 
a successful assignment. 

The following example illustrates the assignment of console 3 
to a process named 'DISPLAY'. 

DECLARE ASSIGN$PARAMS STRUCTURE ( 
CONSOLE BYTE, 
NAME (8) BYTE, 
MATCH$REQD BYTE ) 
INTIAL ( 
3, 'DISPLAY ',0EFH)J 
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RET = M0N2 (149,.ASSIGN$PARAMS:; 

6.4.23 Send CLI Command 

The purpose of the send CLI command operation is to permit 
running programs to send command lines to the Command Line 
Interpreter. A single parameter is passed which is the address 
of a data structure containing the default disk/user code, 
console and command line itself. There are no results returned 
to the calling process. 

The following example illustrates a command sent to spool a 
list file. Note that the command line must "be terminated with a 
null. 

DECLARE CLI$COMMAND STRUCTURE ( 
DEFAULT$DISK BYTE, 
CONSOLE BYTE, 
COMMAND (80) BYTE; ) 

INITIAL ( 
0,1,'SPOOL ANALYSIS. LST',0); 



CALL MON1 (150,.CLI$COMMAND); 

6.4.24 Call Resident System Procedure 

The purpose of the call resident system procedure operation 
is to permit programs to .call the optional resident system 
procedures. A single passed parameter contains the address of a 
call parameter "block data structure which contains the address 
of a resident system procedure name and a parameter to be passed 
to the resident system procedure. 

The operation returns a 1 if the resident system procedure 
called is not present, otherwise it returns the code passed hack 
from the resident system procedure. Typically a returned .value 
of FFH indicates failure while a zero indicates success. 

DECLARE CPB STRUCTURE ( 
RSP$ NAKE$ ADR ADDRESS, 
RSP$PARAM ADDRESS ) 
INITIAL ( 
.RSP$NAME,0); 

DECLARE RSP^NAME (8) BYTE 
INITIAL ( 'CONVERT '); 
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CPB.RSP$PARAM = VALUE; 
RET = M0N2 (151,.CPB); 

6.4.25 Parse Filename 

The purpose of the parse filename operation is to prepare a 
file control block from an input ASCII string containing a file 
name. A single parameter is the address of a data structure 
which contains the address of the ASCII file name string and the 
address of the target file control block. . 

The operation returns an'.FFFFH if the input ASCII string 
contains: ■ .i-an- invalid,- file iame^;: A zero is returned if the ASCII 
string contains a single file name, otherwise the address of the 
first character following the file name is returned. 

DECLARE PFCB STRUCTURE ( 
FILE$NAME$ADR ADDRESS. 
FCB$ADR ADDRESS ) 
INITIAL ( 
.FILENAME, .FCB); 

DECLARE FILENAME (80) BYTE? 

DECLARE FCB (33) BYTE; 



RET = MON2 ( 152 f . PFCB); 

6.4.26 Get Console Number 

The purpose of the get console number operation is to obtain 
the value of the console field from the process descriptor of 
the calling program. There are no passed parameters and the 
returned result is the console number of the calling process. 

CONSOLE = M0N2 (153, 0)J 

6.4.27 System Data Address 

The purpose of the system data address operation is to obtain 
the base address of the system data page. The system data page 
resides in the top 256 bytes of available memory. It contains 
configuration information used by the MP/M loader as well as run 
time data including the submit flags. There are no passed 
parameters and the returned result is the base address of the 
system data page. 

DECLARE SYS$DAT$PG$ADR ADDRESS; 
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DECLARE SYS$IAT!?PG BASED SYS$DAT$PG$ADR (256) BYTE; 

• • • 

• • • 

SYS$DAT$PG$ADR = M0N2 (154,0); 
6.4.28 Get Date and Time 

The purpose of the get date and time operation is to obtain 
the current encoded date and time. A single passed parameter is 
the address of a data structure which is to contain the date and 
time. The date is represented as a 16-oit integer with day 1 
corresponding to January 1, 1978. The time is respresented as 
three hytes: hours^ minutes and seconds, stored as two BCD 
digits. 

DECLARE TOD STRUCTURE ( 
DATE ADDRESS, ~ 
HRS BYTE, 
MI N BYTE, 
SEC BYTE )J 

• •■•'. 
... 

CALL M0N1 (155,. TOD) J 
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6.5 Console Commands / Operator Interface •■ 

The purpose of this section is' to describe the console commands 
which make up the operator interface to the MP/M 1.0 operating 
system. I t is important to note from the outset that there are no 
system defined or built-in commands. That is, the system has no 
reserved or special commands. All commands in the system are a 
reflection of resident system processes specified during system 
generation or programs residing on disk in either the CP/M 2.0 
*.COM file format- or in the MP/M *. PRL (page relocatable) format. 

6.5.1 Run Program 

A program is run by typing 1 in the program name followed by a 
carriage:" return, - <cr>.- Some programs obtain parameters on the 
same line following the program name. Characters on the line 
following the program name constitute what is called the command 
tail. The command tail is copied into location 0080H (relative 
to the base of the memory segment in which the program resides) 
by the Command Line Interpreter (CLI). The CLI also parses the 
command tail producing two file control blocks at 005CH and 
006CH respectively. 

The programs which are provided with MP/M 1.0 are described 
in sections 6.6 and 6.7. 

6.5.2 Abort Program 

A program may be aborted by typing a control C (~C) at the 
console. In order for a program to be aborted it is necessary 
that it check console status to obtain the ~C. An alternate 
solution is to implement a BIOS with a "live console". That is. 
-to write a process which continually monitors the console input, 
passing normal input data on to the conin procedure and taking 
appropriate action when a "C is detected. 

6.5.3 Run Resident System Process 

At the operator interface there is no difference between 
running a program from disk and running a resident system 
process. The actual difference is that resident system 
processes do not need to be loaded from disk because they are 
loaded by the MP/M loader when a system cold start is performed 
and remain resident. 

A brief description of the CLI operation should illustrate 
this point. When the CLI receives a command line it parses the 
first entry on the command line and then tries to open a queue 
using the parsed name. If the open queue succeeds the command 
tail is written to the queue and the CLI operation is finished. 
If the open queue fails a file type of PRL is entered for the 
parsed file name and a file open is attempted. If the file open 
succeeds then the header of the PRL file is read to determine 
the memory requirements. A relocatable memory request is made 
to obtain a memory segment in which to load and run the program. 
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If this request is satisfied the PRL file is read into the 
memory segment, relocated, and it is executed, completing the 
CLI operation. 

If the PRL file type open fails then the file type of COM is 
entered for the parsed file name and a file open is attempted . 
If the open succeeds then a memory request is made for the 
absolute TPA, memory segment based at 0000H. If this request is 
satisfied the COM file is read into the absolute TPA and it is 
executed, completing the CLI operation. 

6.5.4 Detach Program 

There are two methods for detaching from a running program. 
The first is to type a control D (~D) at the console. The 
second method is for a program to make an XDOS detach call. 

The restriction on the former method, typing ~D, is that the 
running program must be performing a check console status to 
observe the detach request. This requirement is removed if a 
"live console" BIOS has been implemented as described in section 
6.5.2. 

6.5.5 Attach Program 

A program which is waiting for the console, such as a 
detached program, may be attached to the console by typing 
'ATTACH' followed by the program name. A program may only be 
attached from the console at which it was detached^. If the TMP 
has ownership of the console and the user enters a ~D T the next 
highest priority ready process which is waiting for the console 
begins running. 

6.5.6 Line Editing and Output Control 

The Terminal Message Process (TMP) allows certain line 
editing functions while typing in command lines: 

rubout Delete the last character typed at the console, 
removes and echoes the last character 

ctl-C MP/M abort program. Terminate running process. 

ctl-S Physical end of line. 

ctl-H Delete the last character typed at the console, 
backspaces one character position. 

ctl-J (line feed) terminate current input. 

ctl-M (carriage return) terminates input. 

ctl-R Retype current command line: types a "clean line" 
following character deletion with rubouts. 
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ctl-U Remove current line after new line. 

ctl-X Delete the entire line typed at the console, 

"backspaces to the beginning of the current line 

ctl-Z End input from the console. 

The control functions ctl-P and ctl-S affect console output 
as shown "below. 

ctl-P Copy all subsequent console output to the list 
device. Output is sent to both the list device 
and the console device until the next ctl-P 
:is typed. . 

ctl-S .Stop the console output temporarily. Program 
execution and output continue when the next 
character is typed at the console (e.g., another 
ctl-S). This feature is used to stop output on 
high speed consoles, such as CRT's, in order to 
view a segment of output before continuing. 
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6.6 Commonly Used System Programs 

The commonly used system programs (CUSPs) or transient commands, 
as they are called in CP/M 2.0, are loaded from the currently 
logged disk and executed in a relocatable memory segment if their 
type is PRL or in the absolute TPA if their type is COM. 

This section contains a brief description of the CUSPs. 
Operation of many of the CUSPs is identical to CP/M 2.0. In these 
cases, „t;he reader is referred to the Digital Research^dccument 
titled "An Introduction to CP/M Features and Facilities" for a 
complete description of the CUSP. 

6.6.1 Get/Set User Code 

The USER command is used to display the current user code as 
well as to set the user code value. 

6.6.2 Erase File 

The ERA (erase) command removes specified files from the 
currently logged-in disk. 

6.6.3 Type File 

The TYPE command displays the contents of the specified ASCII 
source file on the console device. The TTPI command expands 
tabs (ctl-I characters), assuming tab positions are set at every 
eighth column. 

6.6.4 File Directory 

The DIR (directory) command causes the names of files on the 
logged-in disk to be listed on the console device. If no files 
can be found on the selected diskette which satisfy the 
directory request, then the message "Not found" is typed at the 
console. 

6.6.5 Rename File 

The REN (rename) command allows the user to change the name 
of files on disk. 

6.6.6 Text Editor 

The ED (editor) command allows the user to edit ASCII text 
files. 

6.6.7 Peripheral Interchange Program 

The PIP (peripheral interchange program) command allows the 
user to perform disk file and peripheral transfer operations. 

6.6.8 Assembler 
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The ASM (assembler) command allows the user to assemble the 
specified program on. disk. 

6.6.9 Submit 

The SUBMIT command allows the user to submit a file of 
commands for batch processing. 

6.6.10 Status 

The STAT (status)- command provides general statistical 
information about the file storage. 

6.6.11 Dump 

The DUMP command types/the contents of the specified disk 
file on the console in hexadecimal form. 

6.6.12 Hexcom (Load) 

The HEXCOM command reads the specified disk file of type HEX 
and produces a memory image file of type COM which can 
subsequently be executed. 

6.6.13 Concat 

The CONCAT command concatenates source files to produce a 
single destination file. The form of the command tail is as 
follows: 

CONCAT dest . typ=srcl. typ,src2 . typ t src3.typ, . . . 

6.6.14 Genmod 

The G-ENMOD command accepts a file which contains two 
concatenated files of type HEX which are offset from each other 
by 0100H bytes, and produces a file of type PRL (page 
relocatable) . 

6.6.15 Dynamic Debugging Tool 

The DDT (dynamic debugging tool) command loads and executes 
the MP/M debugger. 
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6.7 Extended System Programs 

The extended system programs ( ESPs ) are new programs 
specifically designed to facilitate use of the MP/M operating 
system. The ESPs may either be resident on disk as files of the 
PR! type, or they may he resident system processes. Resident 
system processes are selected at the time of system generation. 

6.7.1 System Status 

The MPMSTAT command allows the user to display the run-time 
status of the MP/M operating system. MPMSTAT is invoked hy 
■■■■ typing 'MPMSTAT' followed by a <cr>. A sample MPMSTAT output is 
shown below: 

****** MP/M 1.0 Status Display ****** 
Ready Process(es) : 

MPMSTAT cli Idle 
Process(es) DQing: 
[SCHED ] Sched 
[ATTACH ] ATTACH 
[SPOOL ] Spool 
Process(es) NQing: 
Delayed Process (es): 
Polling Process(es): 

PIP 
Swapped Process (es): 
Process(es) Flag Waiting: 

01— Tick 

02 - Clock 
Flag(s) Set: 

03 
Queue (s ) : 

tod SCHED ATTACH STOPSPLR SPOOL SYSTAT Cliq 

ParseQ ListMQ DiskMQ 
Process(es) Attached to Consoles: 

[0] - MPMSTAT 

[1] - PIP 
Process(es) Waiting for Consoles* 

[0] - TMP0 DIR ' 

[1] - TMP1 
Memory Allocation: 

Ease = 0000H Size = 4000H Allocated to PIP [1] 

Base = 4000H Size = 2000H * Free * 

Base = 6000H Size = 1100H Allocated to DIR [0] 

6.7.2 Spooler 

The SPOOL command allows the user to spool ASCII text files 
to the list device. Multiple file names may be specified in the 
command tail. The spooler expands tabs (ctl-I characters), 
assuming tab positions are set at every eighth column. 

The spooler queue can be purged at any time by using the 
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STOPSPLR command. 

An example of the SPOOL command is shown "below: 
SPOOL LOAD.LST LETTER. PRN 

6.7.3 Time and Date 

The TOD (time of day) command allows the user to read and set 
the date and time. Entering 'TOD'. followed by a <cr> will cause 
the current date and time to he displayed on the console. 
Entering,. 'TOD' followed by a date and time will set the date and 
time when a <cr> is entered following the prompt to strike a 
key. Each of these TOD commands are illustrated "below: 



TOD <cr> 
Wed 09/15/79 

-or- 



09:15:37 



TOD 9/20/79 10:30:00 
Strike key to set time 
Thu 09/20/79 10:30:00 



6.7.4 Scheduler 



The SCHED (scheduler) command allows the user to schedule a 
program for execution. Entering 'SCHED' followed by a date, 
time and command line will cause the command line to be executed 
when the specified date and time is reached. 

'in the example shown below, the program 'SAMPLE' will be 
loaded from disk and executed on September 16, 1979 at 10:30 PM . 

SCHED 9/18/79 22:30 SAMPLE 
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7.0 System Generation and Loading 

MP/M 1.0 system generation consists of the preparation of a system 
data file and the concatenation, of both required and optional code 
files to produce a file named 'MPM.SYS'. The operation is performed 
using a GENSYS program which can he run under either MP/M 1.0 or CP/M 
2.0. The GJLNSYS automates the system generation process "by prompting 
the user for optional arameters and then prepares the 'MPM.SYS' file. 

MP/M 1.0 system loading consists of reading in the 'MPM.SYS' file 
and relocating the entire operating system into the position 
designated by the system data portion of 'MPM.SYS'. The MP/M 1.0 
loader can he run under CP/M 2.0 making it possible to debug MP/M 1.0 
system programs while running under a CP/M 2.0 debugger. 

7.1 MP/M System File Components 

The MP/M system file, 'MPM.SYS' consists of four components* the 
system data page, the customized BIOS, the MP/M nucleus, and the 
resident system processes. 

7.1.1 System Data 

The system data page contains 256 bytes used by the loader to 
dynamically configure the system. The system data page can be 
prepared using the GENSYS program or it can be manually prepared 
using DDT or SID. The following table describes the byte 
assignments: 

Byte Assignment 

000-000 Top page of memory 

001-001 Number of consoles 

002-002 Breakpoint restart number 

003-003 Allocate stacks for user system calls 

004-015 Dnassigned 

016-031 Memory segment table, a list of base page 

addresses in ascending order terminated 

by a 0FFH. 
032-047 Memory segment bank corresponding to merrory 

segment table entry. 
048-079 Breakpoint vector table, filled in by DDTs 
080-111 Stack addresses for user system calls 
112-127 Unassigned 
128-143 Submit flags 

7.1.2 Customized BIOS 

The customized BIOS is obtained from a file named 'BIOS.SPR'. 
The 'BIOS.SPR' file is actually a file of type ?RL containing 
the page relocatable version of the user customized BIOS. A 
submit file on the distribution diskette named 'MACPRL .SUB' can 
be used to generate the user customized BIOS. The following 
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sequence of commands will produce a 'BIOS.SPR' file given a user 
'BIOS. ASM' file: 

SUBMIT MACPRL BIOS 
REN BIOS.SPR=BIOS.PRL 

7.1.3 Nucleus 

The MP /M nucleus file. named 'MPM.SPR' is a page relocatable 
file containing the priority driven MP/M nucleus. The nucleus 
contains the following code pieces: root module; XDOS interface, 
dispatcher,: queue ... management, flag rranagement, memory 
management, terminal handler, terminal message process, command 
line interpreter, file name parser, time "base management, BDOS 
and BDOS interface. 

7.1.4; Resident System Processes 

Resident system "Processes are identified by a file type of 
RSP. The RSP files distributed with MP/M 1.0 include: MP/M 
run-time system status display, printer spooler, time and date 
conversion, and a scheduler. 

At system generation time the user is prompted to select 
which RSPs are to be concatenated to the 'MPM.SYS' file. 

It is possible for the user to prepare custom resident systerr 
processes. The resident system processes must follow these 
rules: 

* The file itself must be page relocatable. Page relocatable 
files can be simply generated using the submit file 
'MACPRL. SUB'. 

'* The first two bytes of the resident system process are 
reserved for the address of the BDOS. Thus a resident system 
process can access the BDOS by loading the two bytes at relative 
0000-0001H and then performing a PCHL. 

* The process descriptor for the resident system process must 
begin at the third byte position. The contents of the process 
descriptor are described in section 6.4.17. 

7.2 Gensys 

The GENSYS program is used to prepare the 'MPM.SYS' file for 
MP/M from a system data file and concatenation of both required and 
optional code files. GENSYS can be run under either CP/M 2.0 or 
MP/M 1.0. 

The operation of GENSYS is best illustrated with the sample 
execution shown below: 

GENSYS 
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MP/M 1.0 System Generation 



Top page of memory = D0 

Number of consoles = 2 

Breakpoint RST # =5 

Allocate user stacks for system calls (Y/N)? 

Memory segment bases, (ff terminates list) 



System Processes: (Y/N) 





: 00 








: 40 








: 60 








: ff 






Select 


Res! 


Ldent 


TIME 


? 


y 


SCHED 


? 


n 


ATTACH 


? 


y 


Spool 


? 


y 


M3 


>MSTAT 


? 


y 



7.3 Loader 

The MPMLDR program loads the 'MPM.SYS' file and dynamically 
relocates and configures the MP/M 1.0 operating system. MPMLDR can 
be run under either CP/M 2.0, providing that the top page of memory 
is set below the resident CP/M 2.0 and debugger, or loaded from the 
first two tracks of a disk by the bootstrap. 

The MPMLDR provides a display of the system loading and 
configuration. It does not require any operator interaction. In 
the following example the 'MPM.SYS' file prepared by GENSYS (shown 
in section 7.2) is loaded: 

MPMLDR 



MP/M 1.0 Loader 



Number of consoles = 2 
Breakpoint RST # =5 
Top of memory = D0EFH 

Memory Segment Table: 
SYSTEM DAT D000H 0100H 



CONSOLE 


DAT 


CE00H 


0200H 


USERSYS 


STK 


CD00H 


0100H 


BIOS 


SPR 


C900H 


0400H 


BDOS 


SPR 


B800H 


1100H 


MPM 


SPR 


9100H 


2700K 


Memseg 


Usr 


6000H 


3100H 


Memseg 


Usr 


4000H 


2000H 


Memseg 


Usr 


0000H 


4000H 
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Flag Assignments 



+ + 

! 
+ + 

I l 
i 2 

+ 

i 3 

+ + 

I 
I 

I 
I 

+ h 

I 15 

+ 1- 



Reserved 

System time unit tick 

One second interval 

One minute interval 

Undefined 

Undefined 

Undefined 
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Priority Assignments 



0-31 

32 - 63 

64 - 197 

198 

199 

200 - 254 

255 



Interrupt handlers 

System processes 

Undefined 

Teminal message processes 

Command line interpreter 

User processes 

Idle process 
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Sample Basic. I/O System 



This appendix contains a sample BIOS/XIOS. It illustrates the 
required BIOS support for multiple consoles as well as procedures to 
support the XIOS calls. 

The BIOS must he made into a system page relocatable file (BIOS.SPR) 
for the generation of the MPM.SYS file by the GENSYS program. The 
following procedure can he followed to produce a BIOS.SPR file: 



Prepare the customized BIOS with an ORG 0000H. 
the external jump vector is actually negative 
origin of 0. 



Note that 
(below the 



Assuming a system disk in drive A: and the BIOS. ASM file 
is on drive B: t enter the commands- 

A>MAC BrBIOS $PP+S 

5ASSEMBLE THE BIOS. ASM FILE., LIST WITH SYMBOL TABLE 
A>ERA BrBIOS. HX0 
A>REN BrBIOS. HX0=B:BIOS. HEX 
A>MAC BrBIOS $PZSZ+R 

JASSEMBLE THE BIOS. ASM FILE AGAIN OFFSET BY 100H 

JTHE OFFSET IS GENERATED WITH THE +R MAC OPTION 
A>PIP B:BIOS.HEX=B:BIOS.HX0[I] ,B :BIOS .H£X[h] 

JCONCATENATE THE HEX FILES 
A>GENMOD B:BI0S.HEX BIOS.SPR 

GENERATE THE RELOCATABLE BIOS.SPR FILE 
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PAGE 

TITLE 'Basic I/O System' 

MACLIB DISKDEF 

BIOS FOR MICRO-2 COMPUTER 



0000 


= 


FALSE 


EQU 





FFFF 


= 


TRUE 

• 


EQU 


NOT FALSE 


0000 


- 


> 


ORG 


0000H 






• ■ 

• 
t 


EXTERNAL JUMP VECTOR, 


FFFD 


= 


PDISP 


EQU 


.$-3 


FFFA 


~ 


XDOS 

• 


EQU 


PDISP-3 






. f 

• 


• JUMP VECTOR FOR INDIV 


0000 


C34800 


WBOOT: 


JMP 


COLDSTART 


0003 


C34800 




JMP 


WARMSTART 


0006 


C34D00 




-JMP 


CONST 


0009 


C35600 




JMP 


CONIN 


000C 


C35F00 




JMP 


CONOUT 


000F 


C3B400 




JMP 


LIST 


0012 


C35D00 




JMP 


PUNCH 


0015 


C35400 




JMP 


READER 


0018 


C3BB01 




JMP 


HOME 


001B 


C3CC01 




JMP 


SELDSK 


001E 


C3F601 


- 


JMP 


SETTRK 


0021 


C31702 




JMP 


SITSEC 


0024 


C32F02 




JMP 


SETDMA 


0027 


C23502 




JMP 


READ 


002A 


C33A02 




JMP 


WRITE 


002D 


C30000 




JMP 


$-$ 


0030 


C31D02 




JMP 


SECTRAN 


0033 


C33C01 




JMP 


SILMEMORY 


0036 


C32101 




JMP 


POLLDEVICE 


0039 


C33D01 




JMP 


STARTCLOCK 


003C 


C34301 




JMP 


STOPCLOCK 


003F 


C34801 




JMP 


EXITREGION 


0042 


C34F01 




JMP 


MAXCONSOLE 


0045 


C35201 


• 


JMP 


SYSTEMINIT 






COLDSTART: 








WARMSTART: 




0048 


0E00 




MVI 


C,0 


004A 


C3FAFF 




JMP 


XDOS 






51/0 HANDLERS 





BELOW THE BIOS 

JMP/M DISPATCHER 
JBDOS/XDOS ENTRY 

IDUAL SUBROUTINES 
JCOLD START 

JWARM START 
JCONSOLE STATUS 
JCONSOLE CHARACTER IN 
JCONSOLE CHARACTER OUT 
JLIST CHARACTER OUT 
JPUNCfi CHARACTER OUT 
JR1ADER CHARACTER OUT 
JMOVE HEAD TO HOME 
JSILECT DISK 
J SET TRACK NUMBER 
,*SET SECTOR NUMBER 
JSET DMA ADDRESS 
JREAD DISK 
JWRITE DISK 
JLIST STATUS 
JSECTOR TRANSLATE 



SELECT MEMORY 

POLL DEVICE 

START CLOCK 

STOP CLOCK 

EXIT REGION 

MAXIMUM CONSOLE NUMBER 

SYSTEM INITIALIZATION 



SYSTEM RESET, TERMINATE PR 



MP/M 1.0 CONSOLE BIOS 
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0002 = 

0083 = 
008D = 

0000 = 

0001 = 

0002 = 

0003 = 

0004 = 

0005 = 



NMBCNS EQU 2 ■ 

POLL EQU 131 

XDELAI EQU 141 

PLLPT EQU 

PLDSK EQU 1 

PLCO0 EQU 2 

PLC02 EQU 3 

PLCI0 EQU 4 

PLCI2 EQU 5 



t 



NUMBER OF CONSOLES 



"? XDOS POLL JUNCTION 
J XDOS DELAY JUNCTION 



POLL 
POLL 
POLL 
POLL 
POLL 
POLL 



PRINTER 

DISK 

CONSOLE 

CONSOLE 

CONSOLE 

CONSOLE 



OUT #0 

OUT #1 (PORT 2) 

IN #0 

IN #1 (PORT 2) 



CONST: 



004D CD6600 
0050 7C00* 
0052 D900 



0054 1600 



0056 CD6600 
0059 8400 
005B E100 



005D 1600 



005? CD6600 
0062 9600 
0064 F300 



CALL 

DW , 
DW 



READER : 



CONIN: 



PUNCH: 



MVI 



CALL 

DW 

DW 



MVI 



CONOUT: 



CALL 

DW 

DW 



PTBLJMP 

PT0ST 

PT2ST 



D,0 



CONSOLE STATUS 

COMPUTE AND JUMP TO HNDLR 

CONSOLE #0 STATUS ROUTINE 

CONSOLE #1 (PORT 2) STATUS RT 

J READER NOT IMPLEMENTED 
; *** DEFAULTS TO CONIN #0 *** 



J CONSOLE INPUT 

J COMPUTE AND JUMP TO HNDLR 



PTBLJMP 

PT0IN J CONSOLE #0 INPUT 

PT2IN J CONSOLE #1 (PORT 2) INPUT 



D,0 



PTBLJMP 

PT0OUT 

PT20UT 



J PUNCH NOT IMPLEMENTED 

; *** DEFAULTS TO CONOUT #0 *** 



; CONSOLE OUTPUT 

J COMPUTE AND JUMP TO HNDLR 

J CONSOLE #0 OUTPUT 

J CONSOLE #1 (PORT 2) OUTPUT 



PTBLJMP: 



0066 7A 

0067 FE02 
0069 DA6F00 
006C Fl 
006D AF 
006E C9 



006F 67 

0070 El 

0071 85 

0072 6F 



MOV 

CPI 

JC 

POP 

XRA 

RET 



TBLJMP: 



ADD 
POP 

ADD 
MOV 



A,D 

NMBCNS 

TBLJMP 

PSW 

A 



A 
fi 
L 
L,A 



COMPUTE AND JUMP TO HANDLER 

D = CONSOLE # 

DO NOT DESTROY D ! 



; THROW AWAY TABLE ADDRESS 



; COMPUTE AND JUMP TO HANDLE 
J A = CONSOLE # 
J DO NOT DESTROY D ! 
J DOUBLE CONSOLE # FOR ADR OFFST 
J RETURN ADR POINTS TO JUMP TEL 

J ADD CONSOLE # * 2 TO TBL BASE 
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0073 3E00 

0075 8C 

0076 67 

0077 7E 

0078 23 

0079 66 
007A 6F 
007B E9 



MVI 


A,0 


ADC 


H 


MOV . 


H f A 


MOV 


A,M 


INX 


a 


MOV 


H t M 


MOV 


L T A 


PCHL 





J GET HANDLER ADDRESS 



JUMP TO COMPUTED CNS HANDLER 



005F 
007F 
0020 
0008 
005F 



0040 
0041 
0048 
0049 
0050 
0051 



007C DB41 
007E E602 

0080 C8 

0081 3EFF 
0083 C9 



0084 C5. 

0085 D5 

0086 E5 

0087 0E83 

0089 1E04 
008B CDFAFF 
008E El 
008F Dl 

0090 CI 

0091 DB40 
0093 E67F 
0095 C9 



; ASCII CHARACTER EQUATES 


ULINE EQU 


5EH 


RUBOUT EQU 


7FH 


SPACE EQU 


20H 


BACKSP EQU 


6H 


ALTRUB EQU 


ULINE 


? INPUT / OUTPUT PORT ADDRESS EQUATES 


DATA0 EQU 


40H 


STS0 EQU 


DATA0+1 


DATA1 EQU 


48H 


STS1 EQU 


DATA1+1 


DATA2 EQU 


50H 


STS2 EQU 


DATA2+1 


J POLL CONSOLE 


#0 INPUT 


POLCI0: 




PT0ST: 


J RETURN 0FFH IF READY, 




; 000H II NOT 


IN 


STS0 


AN I 


2 


RZ 




MVI 


A,0FFH 


RET 





CONSOLE #0 INPUT 



PT0IN 



J RETURN CHARACTER IN REG A 



PUSH 


B 


PUSH 


D 


PUSH 


H 


MVI 


C,POLL 


MVI 


E,PLCI0 


CALL 


XDOS 


POP 


H 


POP 


D 


POP 


B 


IN 


DATA0 


AN I 


7FH 


RET 





J POLL CONSOLE #0 INPUT 



; READ CHARACTER 
; STRIP PARITY BIT 



J CONSOLE #0 OUTPUT 



AC 



Appendix C: 


Sample Basic I/O 


System 






• 
> 

PT0OUT: 




0096 


CD9D00 


CALL 


PT0WAIT 


0099 


79 


MOV 


A,C 


009A 


D340 


OUT 


DATA0 


009C 


C9 


RET 








J WAIT FOR CONSOLE #0 






PT0WAIT: 




009D 


C5 


PUSH 


B 


009E 


D5 


PUSH 


D 


009F 


E5 


PUSH 


H 


00A0 


0E83 


MVI 


CPOLL 


00A2 


1E02 


MVI 


E,PLCO0 


00A4 


CDF AIT 


CALL 


XDOS 


00A7 


El 


POP 


H 


00A8 


Dl 


POP 


D 


00A9 


CI 


POP ;: 


B ,;. 


00AA 


C9 


RET 








J POLL CONSOLE 


#0 OUTP 






POLCO0: 




00AB 


DB41 


IN 


STS0 


00AD 


E601 


ANI 


01H 


00AF 


C8 


RZ 




00B0 


3EFF 


MVI 


A,0FFH 


00B2 


C9 


RET 





J REG C = CHARACTER TO OUTBU 
J POLL CONSOLE #0 OUTPUT 

J TRANSMIT CEARACTER 



; POLL CONSOLE #0 OUTPUT 



5 RETURN 0FFH IF READY, 
J 000H IF NOT 



LINE PRINTER DRIVER: TI 810 SERIAL PRINTER 

TTY MODEL 40 



PRINTER INITIALIZATION FLAG 

LIST OUTPUT 

REG C = CHARACTER TO PRINT 







INITFLAG: 




00B3 


00 


LIST: 
PTIOUT 


DB 

• 


; 


00B4 


3AB300 




LDA 


INITFLAG 


00B7 


B7 




ORA 


A 


00B8 


C2C200 




JNZ 


PT1XX 


00BB 


3E27 




MVI 


A,27H 


00BD 


D349 




OUT 


49H 


00BF 


32B300 


PT1XX: 


STA 


INITFLAG 


00C2 


C5 




PUSH 


B 


00C3 


D5 




PUSH 


D 


00 C 4 


0E83 




MVI 


C.PO'LL 


00C6 


1200 




MVI 


E,PLLPT 


00C8 


CDFAFF 




CALL 


XLOS 



TTY MODEL 40 INIT 



} POLL PRINTER OUTPUT 
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00CB Dl 
00CC CI 
00CD 79 
,00CE D348 
00D0 C9 



00D1-DB49 
00D3 E601 
00D5 C8 
00D6 3EFF 
00D8.C9 



00D9 DB51 
00DB E602 
00DD C8 
00DE 3EFF 
00E0 C9 



00E1 C5 
00E2 D5 
00E3 E5 
00E4 0E83 
00E6 1E05 
00 E8 CDFAFF 
00EB El 
00EC Dl 
00ED CI. 
00EE DE50 
00F0 E67F 
00F2 C9 





POP 


D 




POP 


B 




MOV 


A,C 




OUT 


DATA1 




RET 




; POLL 


PRINTER 


OUTPUT 


POLLPT 


• 






IN 


STS1 




AN I 


01H 




RZ 






MVI 


A.0FFH 




RET 




J POLL 


CONSOLE 


#1 (PO 


POLCI2 


• 

• ■ ■ » 




PT2ST: 








IN 


STS2 




ANI 


2 




RZ 






MVI 


A,0FFH 




RET 





; CHAR TO REGISTER A 



J RETURN 0FFH IF READY, 
; 000H IF NOT 



J RETURN 0FFH IF READY, 
5 000H IF NOT 



CONSOLE #1 (PORT 2) INPUT 
PT2IN: 



J RETURN CHARACTER IN ^EGr A 



PUSH 


B 


PUSH 


D 


PUSH 


H 


MVI 


C,POLL 


MVI 


E,PLCI2 


CALL 


XDOS 


POP 


H 


POP 


D 


POP 


B 


IN 


DATA2 


ANI 


7FH 


RET 





; POLL CONSOLE #1 INPUT 



J READ CHARACTER 
J STRIP PARITY 3IT 



CONSOLE #1 (PORT 2) OUTPUT 
PT20UT : 



00F3 CD0B01 
00F6 79 
00F7 D350 
00F9 FE0A 
00FB C0 



CALL 


PT2WAIT 


MOV 


A,C 


OUT 


DATA2 


CPI 


0AH 


RNZ 





5 REG C = CHARACTER TO OUTPUT 



J TRANSMIT CHARACTER 

; LINE FEED REQUIRES A DELAY 
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a sic I/O 


System 


00FC 


C5 




PUSH 


B 


00FD 


D5 




PUSH 


D 


00FE 


E5 




PUSH 


H ■ 


00FF 


0E8D 




MVI 


C,XDELAY 


0101 


110400 




LXI 


D,4 J AT LEAST 3 TI 


0104 


CDFAFF 




CALL 


XDOS J LELAY 


0107 


El 




POP 


H 


0106 


Dl 




POP 


D 


0109 


CI 




POP 


B 


010A 


C9 




RET 








; WAIT 


FOR CONSOLE #1 (PORT 2) OUTPUT READY 






PT2WAIT: 




010B 


C5 




PUSH 


B 


010C 


D5 




PUSH 


D 


010D 


E5 




PUSH 


H 


010E 


0E83 




MVI 


C.POLL 


0110 


1E03 




MVI 


E.PLC02 


0112 


CDFAFF 




CALL 


XDOS ; POLL CONSOLE 


0115 


El 




POP 


H 


0116 


Dl 




POP 


D 


0117 


CI 




POP 


B 


0118 


C9 




RET 








; POLL 


CONSOLE 


#1 (PORT 2) OUTPUT 






P0LC02 


• 


; RETURN 0FFH IF READY, 
J 000H IF NOT 


0119 


DB51 




IN 


STS2 


011B 


E601 




AN I 


01H 


011D 


C8 




RZ 




0115 


3EFF 




MVI 


A , 0FFH 


0120 


C9 




RET 





= 48 MS 



MP/M 1.0 XIOS 



0006 


= 


NMBDEV 


EQU 


6 


5 


NUMBER OF DEVICES IN POLL TBL 






POLLDEVICE: 




















REG C = DEVICE # TO BE POLLED 














RETURN 0FFH IF READY, ~ 














000h IF NOT 


0121 


79 




MOV 


A,C 






0122 


FE06 




CPI 


NMBDEV 






0124 


DA2901 




JC 


X010 






0127 


3E06 


X010 : 


MVI 


A , NMBDEV 


• 
• 


IF DEV # >= NMBDEV, 
SET TO NMBDEV 


0129 


CD6F00 




CALL 


TBLJMP 


• 


JUMP TO DEV POLL CODE 


012C 


D100 




DV 


POLLPT 


• 


POLL PRINTER OUTPUT 



52 



Appendix C: Sample Basic I/O System 



012E 9302 
0130 AB00 
0132 1901 
0134 7C00 
0136 D900 
0138 3A01 



013A AF 
013B C9 





DW 


POLDSK 


f POLL DISK READY 




DW 


POLCO0 


1 POLL CONSOLE #0 OUTPUT 




DW 


P0LC02 


r POLL CONSOLE #1 (PORT 2) OUTPU 




DW 


POLCI0 


1 POLL CONSOLE #0 INPUT 




DW 


P0LCI2 ; 


1 POLL CONSOLE #1 (PORT 2) INPUT 


• 


DW 


BADDEV 5 


BAD DEVICE HANDLER 


BADDEV 


♦ 


i 


J BAD DEVICE NUMBER 
1 RETURNS 000H, NOT READY 




XRA 


A 






RET 







SELECT / PROTECT MEMORY 
SELMEMORY: 



REG BC = ADR OF MEM DESCRIPTOR 
*** NOT IMPLEMENTED *** 
DUMMY RETURN 



013C C9 



013D 3EFF 
013F 323403 
0142 C9 



A,0FFH 
TICKN 



0143 AF 

0144 323403 
0147 C9 



0148 3A3603 
014B B7 
014C C0 
014D FB 
014E C9 



014F 3E02 
0151 C9 



RET 
START CLOCK 
STARTCLOCK: 

MVI 

STA 
RET 

STOP CLOCK 
STOPCLOCK: 

XRA 
STA 
RET 

EXIT REGION 

EXITREGION: 

LDA 
ORA 
RNZ 

EI 
RET 

MAXIMUM CONSOLE NUMBER 

MAXCONSOLE: 

MVI A t NMBCNS 
RET 



J WILL CAUSE FLAG #1 TO BE SET 
J AT EACH SYSTEM TIME UNIT TICK 



J WILL STOP FLAG #1 SETTING AT 
J SYSTEM TIME UNIT TICK 



A 
TICKN 



J EI IF NOT PREEMPTED 



PREEMP 
A 



ADpendix C: Sample Basic I/O System 



SYSTEM INITIALIZATION 



SYSTEMINIT: 

THIS IS THE PLACE TO INSERT COLE TO INITIALIZE 
THE TIME OF DAY CLOCK, IF IT IS DESIRED ON EACH 
BOOTING OF THE SYSTEM. 



0152 3EC3 
0154 323800 
015? 216501 
015A 223900 


MVI 
STA 
LXI 
SHLD 


A t 0C3H 
0038H 
B, INTHND 
0039H 


015D 3A3503 
0160 D360 


IDA 
OUT 


INTMSK 
60H 


0162 ED56 


■DB ; 


0IDH,056H 


0164 C9 


RET. 





JMP INTEND AT 0038H 



J INIT INTERRUPT MASK 

J INTERRUPT MODE 1 

J ** Z80 INSTRUCTION ** 



MP/M 1.0 INTERRUPT HANDLERS 



0085 - 
008E = 



FLAGSET EQU 
DSPTCH EQU 142 



133 



INTHND: 



INTERRUPT HANDLER ENTRY POINT 
ALL INTERRUPTS GEN A RST 7 
LOCATION 0038H CONTAINS A JMP 
TO INTHND. 



0165 


F5 


PUSH 


PSV 


0166 


223003 


SHLD 


SVDHL 


0169 


210000 


LXI 


H,0 


016C 


39 


DAD 


SP 


016D 


223203 


SHLD 


SVDSP 


0170 


313003 


LXI 


SP,INTSTK+48 


0173 


D5 


PUSH 


D 


0174 


C5 


PUSH 


B 


0175 


3EFF 


MVI 


A,0FFE 


0177 


323603 


STA 


PREEMP J SE 


017A 


DB60 


IN 


60H 


017C 


E640 


AN I 


01000000B 


017E 


C28401 


JNZ 


CLK60EZ 


0181 


C3AA01 


JMP 
CLK60HZ: 


INTDONE 


0.184 


3A3403 


LDA 


TICKN 



J SAVE USERS STK PTR 
J LCL STK FOR INTR HNDL 



SET PREEMPTED FLAG 

J READ INTERRUPT MASK 
J TEST & JUMP IF CLK INT 



J TEST/HANDLE OTHER INTS 



,' 60 HZ CLOCK INTERRUPT 
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Appendix C: 


Sample 


Basic I/( 


D System 


0187 B7 




ORA 


A 


0188 CA9201 




JZ 


NOTICKN 


018B 0E85 




MVI 


CFLAGSET 


018D 1E01 




MVI 


E.l 


018F CDFAFF 




CALL 


XDOS 




NOTICKN: 




0192 21FF02 




LXI 


H,CNT60 


0195 35 




DCR 


M 


0196 C2A201 




JNZ 


NOT1SEC 


0199 363C 




mvi: 


M t 60 


019B 0E85 




MVI " 


CFLAGSET 


019D 1E02 




MVI 


E t 2 


019F CDFAFF 




CALL 


XDOS 




N0T1SEC: 




01A2 AF 




XRA . 


A 


01A3 D360 




OUT 


60H 


01A5 3A3503 




LDA 


INTMSK 


01A8 D360 




OUT 


60H 






JMP 


INTDONE 



0080 = 

0080 = 

0081 = 

0082 = 

0083 = 



J TEST TICKN. INDICATES 
J DELAYED PROCESS (ES) 



J SET FLAG #1 EACH TICK 



J DEC 60 TICK CNTR 



J SET FLAG #2 G 1 SEC 



J ACK CLOCK INTERRUPT 



OTHER INTERRUPT HANDLERS 





INTDONE: 




01AA AF 


XRA 


A 


01AB 323603 


STA 


PREEMP 


01AE CI 


POP 


B 


01AF Dl 


POP 


D 


01B0 2A3203 


LHLD 


SVDSP 


01B3 F9 


SPHL 




01B4 2A3003 


LHLD 


SVDHL 


01B7 Fl 


POP 


PSW 


01B8 C3FDFF 


JMP 


PDISP 



J CLEAR PREEMPTED FLAG 



J RESTORE STK PTR 



J MP/M DISPATCH 



DISK I/O DRIVERS 
DISK PORT EQUATES 



CMD1 

STAT 

HADDR 

LADDR 

CMD2 



EQU 
EQU 
EQU 
EQU 
EQU 



80H 
80H 
81H 
82H 
83E 



01BB CDDC02 



01BE 3600 

!01C0 DB80 
01C2 E604 



HOME: JMOVE TO THE TRACK 00 POSITION CF CURRENT DRIVE 

CALL HEADLOAD 
; fl.L POINT TO WORD WITH TRACK FOR SELECTED DISK 
HOMED: 

MVI M,00 ;SIT CURRENT TRACK PTR BACK TO 

IN STAT JRIAD FDC STATUS 

ANI 4 JTIST TRACK BIT 
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01C4 C8 
01C5 3? 
01C6 CDC302 
01C9 C3BE01 



01CC 
01CF 
01D0 
01D2 

01D3 
01D4 
01D7 
01D8 
01DA 
01DD 

01DE 
01E1 
01E3 
01 E4 
01E6 

01E9 
01EA 
01EB 
01SC 
01ED 
01EE 
01F1 
01F2 
01F5 



210000 
79 

FE02 
D0 

AF 

323E03 

79 

E607 

323E03 

4F 

3A4103 

E6E0 

Bl 

F608 

324103 

69 

29 

29 

29 

29 

114403 

19 

227303 

C9 



01E6 CDDC02 



01F9 79- 
01FA BE 
01EB ce 

01FC CDC302 

01FE 79 

0200 BE 

0201 C2FC01 



RZ 

STC 

CALL STEP 

JMP HOMEL 

SELDSK: 

JDRIVE NUMBER 

LXI H t 

MOV A,C 

CPI NDISKS 

RNC 
5MAKE SURE DUMMY IS 

XRA A 
. STA 

MOV 

ANI 

STA 

MOV 
JSET UP THE 

LDA 

ANI 

ORA C J PUT IN 

ORI 08H J FORCE 

STA 
; PROPER 

MOV 

DAD fi 

DAD H 

DAD E 

DAD H 

LXI D.DPBASE 

DAD D 

SHLD TRAN 

RET 



jreturn if at 
jdirection=out 
jstep one track 
;loo? 



IN C 

J0000 IN EL PRODUCES 
J A IS DISK NUMBER 
JLESS THAN NDISKS? 
RETURN WITH HL = 0000 IF NOT 
(FOR USE IN DOUBLE ADD TO H,L) 



SELECT ERROR 
. . NDISKS-1 



JGET ONLY DISK SELECT BITS 



DUMMY 
A,C 
07H 
DISKNO 
C t A 
SECOND COMMAND PORT 
PORT 
0F0H JCLEAR OUT OLD DISK SELECT BITS 



C 

08H 
PORT 
DISK NUMBER, 
L t C 

*2 



NEW DISK SELEC 
DOUBLE DENSITY 



BITS 



RETURN DPB ELEMENT ADDRESS 



*4 
*8 
*16 

;el=.dpb 
j translate 



TABLE BASE 



SETTRK: JSET TRACK GIVEN BY REGISTER C 

CALL HEADLOAD 
jh,l REFERENCE CORRECT TRACK INDICATOR ACCORDING TO 
J SELECTED DISK 

JDESIRED TRACK 



SETTKX: 



MOV 
CMP 
RZ 

CALL 



A,C 

M 



STEP 



JVE ARE ALREADY ON THE TRACK 



0204 3E14 



JSTEP TRACK-CARRY HAS DIRECTION 
JSTEP WILL UPDATE TRK INDICATOR 

MOV A t C 

CMP M 

JNZ SETTKX 
JHAVE STEPPED ENOUGH 
SEEKRT * 

JDELAY 10 MSEC FOR FINAL STEP TIME AND HEAL SETTLE TIME 
JTHE DELAY ROUTINE DELAYS .5 MILLISECOND 

MVI A.20D 



J ARE WE WHERE WE WANT TO BE 
J NOT YET 
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0206 CD0A02 
0209 C9 

020A C5 
020 B 0E86 



020D 0D 
020 E C20D02 

0211 3D 

0212 C20B02 

0215 CI 

0216 C9 



0217 0C 

0218 79 

0219 323B03 
021C C9 



CALL 
RET 



DELAY 



021D 2A7303 

0220 5E 

0221 23 
,0222 56 

0223 7B 

0224 B2 

0225 2600 

0227 69 

0228 C8 

0229 EB 
022A 42 
022B 09 
022C 6E 
022D 62 
022E C9 



022F 69 

0230 60 

0231 223C03 
0234 C9 



DELAY: JROUTINE TO DELAY C(A) 
PUSH 



J END OF SETTRK ROUTINE 
.5 MILLISECONDS 



DELAY2: 



LDXA: 



MVI 



DCR 
JNZ 
DCR 
JNZ 
POP 
RET 



B 
C.086H 



C 

LDXA 
A 

DELAY2 
B - 



,'ADJUST FOR .5 MSEC LOOP DELAY 
J THIS IS THE VALUE FOR OUR IMSAI 



JLOOP 1 MSEC 



5END OF DELAY ROUTINE 



SETSEC : 



INR 
MOV 
STA 
RET 



JSET SECTOR GIVEN BY REGISTER C 

C 

A,C 

SECTOR 



SECTRAN: 



SETDMA 



J SECTOR NUMBER IN C 

^TRANSLATE LOGICAL TO PHYSICAL SECTOR 



LHLD 

MOV 

INX 

MOV 

MOV 

ORA 

MVI 

MOV 

RZ 

XCHG 

MOV 

DAD 

MOV 

MOV 

RET 



MOV 
MOV 
SHLD 
RET 



TRAN 

E t M 

H 

D t M 

A,E 

D 

H,0 

L,C 



B,D 
B 

L t M 
H,D 



;HL=. .TRANSLATE 
JE=LOW( .TRANSLATE) 

;DE=. TRANS LATE 

JZERO? 

J 00 OR 00 = 00 

JHL = UNTRANSLATED SECTOR 
;skip IF SO 

;bc=00ss 

jhl=. translate (sector) 

,'hl=translate( sector) 



;SET DMA ADDRESS GIVEN BY REGISTERS B AND C 
L f C JLOW ORDER ADDRESS 
H,B JHIGH ORDER ADDRESS 
DMAAD JSAVE THE ADDRESS 



0235 0640 
0237 C33C02 



READ: 5PERFORM READ OPERATION.- 

?THIS IS SIMILAR TO WRITE, SO SET UP READ 
J COMMAND AND USE COMMON CODE IN WRITE 
MVI B t 040H ;SET READ FLAG 
JMP WAITIO JTO PERFORM THE ACTUAL I/O 

WRITE: JPERFORM A WRITE OPERATION 
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023A 0680 



Sample Basic I/O System 



MVI 



B f 080H J SET WRITE COMMAND 



VAITIO: 
ENTER HERE FROM READ AND WRITE TO PERFORM THE ACTUAL 
I/O OPERATION. RETURN A 00H IN REGISTER A IE THE 
OPERATION COMPLETES PROPERLY, AND 01H IF AN ERROR 
OCCURS DURING THE READ OR WRITE 



IN THIS CASE, 



023 C 3E0A 
023E 324003 



0241 C5 

0242 CDDC02 

0245 CI 

0246 4E 

0247 3E2? 

0249 B9 
024A DA5102 

024D 3E10 
024F B0 

0250 47 



0251 2A3C03 

0254 C5 

0255 2B 

0256 5E 



0257 3A4103 
025A E608 
025C 3EFB 
025E CA6302 
0261 E60F 



0263 77 

0264 2B 

0265 56 

0266 3A3B03 



0269 77 



MVI 

:; sta ,: 

TRYAGN : 

PUSH 
CALL 

;h,l POINT TO 
POP 
MOV 



THE DISK NUMBER SAVED IN 'DISKNO' 

THE TRACK NUMBER IN 'TRACK' 
THE SECTOR NUMBER IN "SECTOR' 
THE DMA ADDRESS IN 'DMAAD' 
5B STILL HAS R/W FLAG 

A,10D ;SET ERROR COUNT 

ERRORS J RETRY SOME FAILURES 10 TIMES 
JBEFORE GIVING UP 



HEADLOAD 
TRACK BYTE 
B 
C,M 



FOR SELECTED DISK 



DECIDE WHETHER TO ALLOW DISK WRITE PRECOMPENSTATION 



MVI 
CMP 

JC 



A,39D 

C 

ALLOWIT 



INHIBIT PRECOMP ON TRKS 0-39 



INHIBIT PRECOMP 



MVI 
ORA 
MOV 



ALLOWIT 



LHLD 
PUSH 
DCX 



A,10H 

B 

B,A 



DMAAD 

B 

H 



;goes out on the 
j as read/write 



SAME PORT 



MOV 
J FIGURE CORRECT 

LDA 

ANI 

MVI 

JZ 

ANI 



E,M 
ADDRESS 

PORT 

08H 

A.0FBH 

SIN 

0FH 



J GET BUFFER ADDRESS 
JB HAS R/W CODE C HAS TRACK 
J SAVE AND REPLACE 3. BYTES BELOW 
JBUF WITH TRK,SCTR.ADR MARK 

MARK 



J WAS DOUBLE 

J0BH IS DOUBLE DENSITY 

J0FBH IS SINGLE DENSITY 



SIN: 

MOV M,A 

;fill in sector 

DCX H 
MOV D.M 
LDA SECTOR 



JNOTE THAT INVALID SECTOR NUMBER 
JWILL RESULT IN HEAD UNLOADED 
JERROR, SO DONT CHECK 



MOV 



M,A 
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ADPendix C: 


Sample Basic I/O System 




,'FILL IN TRACK 


026A 2B 


DCX H 


026B CI 


POP B 


026C 79 


MOV A , C 


026D 4E - 


MOV C,M 


026E 77 


MOV M , A 


026F 7C 


MOV A,H 


0270 D381 


OUT HADDR 


0272 7D 


MOV A,L 


0273 D382 


OUT .. LADDR 


0275 78-..-".: 


MOVi: A,B 


0276 D380" 


OUT CMD1 "■-"■ 




1WVAIT:: 


0278 C5 


CPUSH B 


0279 D5 


-PUSH D 


027A E5 


PUSH H 


027B 0E83 


MVI CPOLL 


027D 1E01 


MVI E,PLDSK 


027F CDFAFF 


CALL XDOS 


0282 El 


POP fl 


0283 Dl 


POP D- 


0284 CI 


POP B 


0285 AF 


XRA A 


0286 71 


MOV M , C 


0287 23 


INX ~ H 


0288 72 


MOV M f D 


0269 23 


INX H 


028A 73 


MOV M,E 


028B DB80 


IN STAT 


028D E6F0 


ANI 0F0H 


028F C8 


RZ 


0290 C39B02 


JMP ERRTN 


, 


5 POLL DISK READY 




POLDSK : 


0293 DB80 


IN STAT 


0295 E688 


ANI' 88H 


0297 C8 


RZ 


0298 3EEE 


MVI A t 0FFH 


029A C9 


RET 



?SET UP FDC DMA ADDRESS 
JHIGH BYTE 

J LOW BYTE <-. 

;GET- R/¥ FLAG 

f START DISK READ/WRITE 



J POLL DISK READY 



JRESTORE 3 BYTES BELOW BUF 



J TEST FOR ERRORS 

JA WILL BE IF NO IRRORS 



RETURN 0FFH IF READY, 

000B IF NOT 
READ FDC STATUS 
TEST FOR HEAD UNLOAD OR 



I OF 



029B F5 

029C 214003 
029F 35 
02A0 C2A702 



ERRTN : 

J COME HERE ON ERROR FROM DISK 

PUSH PSV J SAVE ERROR CONDITION 
J CHECK FOR 10 ERRORS 

LXI fi, ERRORS 

DCR M 

JNZ REDO J NOT TEN YET. DO A RETRY 
JWE HAVE TOO MANY ERRORS. PRINT OUT HEX NUMBER FOR LAST 
JRECEIVED ERROR TYPE. CPM WILL PRINT PERM ERROR MESSAGE 
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Appendix C: 


Sample Basic I/O 


System 




02A3 Fl 


POP 


PSV 


JGET-CODE 




J SET ERROR RETURN FOR 


OPERATING SYSTEM 


02A4 3E01 


MVI 


A,l 




02A6 C9 


RET 
REDO: 








;b still has read/write flag 


02A7 Fl 


POP 


PSV 


JGET ERROR CODE 


02A8 E6E0 


ANI 


0I0H 


JRETRY IF NOT TRACK ERROR 


02AA C24102 


JN2 


TRYAGN 


• 




;was a track error so 


NEED TO RESEEK 


02AD C5 


PUSH 


B \ ," 


J SAVE READ/VRITE INDICATOR 




,'FIGURE OUT THE DESIRED TRACK 


02AE 113703 


LXI 


D, TRACK 




02B1 2A3E03 


LHLD 


DISKNO 


; SELECTED DISK 


02B4 19 


DAD 


D 


5POINT TO CORRECT TRK INDICATOR 


02B5 7E 


MOV 


A,M 


5 DESIRED TRACK 


02B6 F5 


PUSH 


PSW 


JSAVE IT 


02B7 CDBB01 


CALL 


HOME 




02BA Fl 


POP 


PSV 




02BB 4F 


MOV 


C,A 




02BC CDF601 


CALL 


SETTRK 




02BF CI 


POP 


B 


JGET READ/VRITE INDICATOR 


02C0 C34102 


JMP 


TRYAGN 






STEP: 




J STEP HEAD OUT TOVARDS ZERO 
JIF CARRY IS SETJ ELSE 
JSTEP IN 




5 H,L POINT TO 


CORRECT 


TRACK INDICATOR WORD 


02C3 DAD702 


JC 


OUTX 




02C6 34 


INR 


M 


INCREMENT CURRENT TRACK BYTE 


02C7 3E04 


MVI 
DOSTEP: 


A.04H 


JSET DIRECTION = IN 


02C9 F602 


OR I 


2 




02CB D380 


OUT 


CMD1 


JPULSE STEP BIT 


02CD 1 E6FD 


ANI 


0FDH 




02CF D380 


OUT 


CMD1 


J TURN OFF PULSE 




;tee fdc-2 had 


A ST.EPP 


READY LINE. THE FDC-3 RELIES ON 




; SOFTWARE TIME 


OUT 




02D1 3E10 


MVI 


A,16D 


J WAIT FOR STEP READY 




J DELAY ROUTINE 


DELAYS 


FOR .5 MSEC TIMES THI 




J CONTENTS OF 


REG A 




02D3 CD0A02 


CALL- 


DELAY 




02D6 C9 


RET 

• 

OUTX: 






02D7 35 


DCR 


M 


J UPDATE TRACK BYTE 


02D8 AF 


XRA 


A 




02D9 C3C902 


JMP 

« 

EEADLOAD: 


DOSTEP 






JSELECT AND LOAD THE HEAD ON THE CORRECT DRIVE 


02DC 214203 


LXI 


H.PRTOUT JOLD SLECT INFO 


02DF 46 


MOV 


E,M 
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Appendix C: 


Sample 


Basic I/O 


System 


02E0 


2B 




rex 


H J NEW SELECT INFO 


02E1 


7E 




MOV 


A,M 


02E2 


23 




INX 


H 


02E3 


77 




MOV 


M f A 


02E4 


D383 




OUT 


CMD2 i SELECT THE DRIVE 






JSET 


UP H.L TO 


POINT TO TRACK BYTE FOR SELECTED 


02E6 


113703 




LXI 


D t TRACK 


02E9 


2A3E03 




LHLD 


DISKNO 


02EC 


19 




DAD 


D 






;now 


CHECK. FOR 


NEEDING. A 35 MS DELAY 




— . 


; if.. 


WE HAVE CHANGED DRIVES OR IE THE HEAD IS UN 






;we 


NEED TO WAIT 35 MS FOR HEAD SSTTLE 


02ED 


B8 




CMP 


B JARE WE ON THE SAME DRIV 


02EE 


C2F602 




JNZ 


NEEDDLY 




.■ 


;we 


ARE ON THE 


SAME DRIVE 






?is 


THE V HEAD LOADED? 


02F1 


DB80 




IN^ 


STAT 


02F3 


E680 




ANI 


80H 


02F5 


ce 




• RZ 


; ; ALREADY LOADED 






NEEDDLY:. 


. 


02F6 


AF ' 




XRA 


A 


02F7 


D380 




OUT 


CMD1 J LOAD THE HEAD 






JTHE 


DELAT ROUTINE DELAYS FOR .5 MSEC 


02F9 


3E46 




MVI 


A,70D 


02FB 


CD0A02 




CALL 


DELAY 


02FE 


C9 




RET 


■ . -■ . 



02FF 


3C 


0300 




0330 


0000 


0332 


0000 


0334 


00 


0335 


40 


0336' 


00 


0337 


00 


0336 


00 


0339 


00 


033A 


00 


033B 


00 


033C 


0000 


033E 


00 


033F 


00 


0340 


00 


0341 


00 


0342 


00 


0343 


00 


+ 


0002+# 



DISK 



UNLOADED 



BIOS DATA SEGMENT 



CNT60: 


DB 


60 


INTSTK 


• 


DS 


SVDHL: 


'dw 





SVDSP: 


DW 





TICKN: 


DB 





INTMSK 


• 


DB 


PREEMP 


» 


DB 


SCRAT: 






TRACK: 


DB 





TRAK1: 


DB 





TRAK2 : 


DB 





TRAK3: 


DB 





SECTOR 


• 
• 


DB 


DMAAD: 


DW 





DISKNO 


: 


DB 


DUMMY : 


DB 





ERRORS 


* 
• 


DB 


PORT: 


DB 





PRTOUT 


• 


DB 


DNSTY: 

• 


*DB 





> 


DISKS 


2 


NDISKS 


SET 


2 



J 60 TICK CNTR = 1 SEC 

48 ; LOCAL INTRPT STK 

J SAVED REGS HL DURING INT HNDL 

J SAVED SP DURING INT HNDL 

J TICKING BOOLEAN. TRUE ='DELAYED 

40H ? INTRPT MSK, ENABLES CLK 

; PREEMPTED BOOLEAN 



START OF SCRATCH AREA 
CURRENT TRK ON DRIVE 
CURRENT TRK ON DRIVE 1 



IN 






« 

J 


CURRENTLY SELECTED SCTR 


• 


CURRENT 


DMA ADDRESS 





• 
3 


CURRENT DISK NUMBER 


• 




MUST BE 


FOR DBL ADD 
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Appendix C: Sample Basic I/O System 



0344+= 
0000+# 

+ 
+ 

+ 

0344+00000000 
0348+00000000 
034C+75036403 
0350+1504F503 

+ 

000 l+# 



0354+00000000 
0358+00000000 
035C+75036403 
0360+35041504 

+ 
0002+# 

0800 = 
0010 = 
00FF = 

... + 
+ 
+ 
+ 
+ v . 

+ 

0039+# 

003A+# 
0020+# 

+ 

+ 

+ 
0000+# 
0010+# 
0000+# 
0000+# 

+ 

+ 
+ 

+ 
+ 



DPBASE ECU 

DSKNXT SET 
REPT 
DSKHDR 

DSKNXT SET..... 
ENDM 
'DSKHDR 

DPE0 : DW 

DW 

DW 

DW 

ENDM"" 
DSKNXT SET 





2 

%DSKNXT 
DSKNXT+1 

%DSKNXT 



XLT0,0000H 
0000H,0000H 
DIRBUF t DPB0 
CSV0.ALV0 

DSKNXT+1. . 



J BASE OF DISK PARAMETER BLOCKS 



JTRANSLATE TABLE 

J SCRATCH ARIA 

iDIR BUFF,PARM BLOCK 

JCBECK, ALLOC VECTORS 



DSKEDR 2DSKNXT 



DPE1: DW 
DW 
DW 
DW 

ENDM 
DSKNXT" SET ■ ; 
"ENDM 
ENDM 
BPB EQU 
RPB EQU 
MAXB EQU 



XLTl t 0000fi 
0000H,0000H 
DIRBUF,DPB1 
CSV1,ALV1 

DSKNXT+1 



j translate table 
;s cratch area 
;dir buff.parm block 
5cbeck, alloc vectors 



2*1024 ? BYTES PER BLOCK 
BPB/128 J RECORDS PER BLOCK 
255 ;max BLOCK NUMBER 
DISKDEF 0,1,58, ,B?B,MAXB+1 ,128,0,2 



DPB0 
ALS0 
CSS0 
XLT0 

SECMAX 

SECTORS 

ALS0 

ALS0 

CSS0 
BLKVAL 
BLKSHF 
BLKMSK 



BLKSHF 
BLKMSK 
BLKVAL 



IF 

EQU 

EQU 

EQU 

EQU 

ELSE 

SET 

SET 

IF 

SET 

ENDIF 

SET 

SET 

SET 

SET 

REPT 

IF 

EXITM 

ENDIF 

SET 

SET 

SET 

ENDM 

IF 

EXITM 



NUL 58 

DPB1 

ALS1 

CSS1 

XLT1 



^EQUIVALENT PARAMETERS 
JSAME ALLOCATION VECTOR SIZE 
JSAME CHECKSUM VECTOR SIZE 
; SAME TRAN SLATE TABLE 



56-(l) 

SET SECMAX+1 

(MAXB+D/8 

((MAXB+1) MOD 8) NE 

ALS0+1 

(0)/4 

BPB/128 





16 

BLKVAL=1 



BLKSHF+1 

(BLKMSK SHL 1 ) OR 1 

BLKVAL /2 

BLKVAL=1 
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Appendix C: Sample Basic I/O System 



+ 
0001+# 
0001+# 
0008+# 
+ 
+ 
+ 
0002+# 
0003+# 
0004+# 
+ 
+ 
+ 

0003+# 
000?+# 
0002+# 

+ 

+ 
0004+# 
000F+# 
0001+# 

+ 
+ 
0002+# 
0000+# 

+ 

+ 
.. + ... 
+ 
+ 
+ 
+ 

+ 
+ 
0001+# 
0001+# 

+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 

0080+# 
0040+# 
0000+# 

+ 
+ 
+ 
+ 

+ 
+ 



BLKSHF 
BLKMSK 
BLKVAL 



BLKSHF 
3LKMSK 
BLKVAL 



BLKSHF 
BLKMSK 
BLKVAL 



BLKSHF 
BLKMSK 
BLKVAL 



BLKVAL 
EXTMSK 



EXTMSK 
BLKVAL 



EXTMSK 
BLKVAL 



EXTMSK 



EXTMSK 

DIRREM 
DIRBKS 
DIRBLK 



DIRBLK 



ENDIF 

SET 

SET 

SET 

IE 

EXITM 

ENDIF 

SET 

SET 

SET 

IE 

EXITM 

ENDIF 

SET 

SET 

SET 

IE 

EXITM 

ENDIT 

SET 

SET 

SET 

IF 

EXITM 

SET 

SET 

REPT 

IF 

EXITM 

ENDIF 

SET 

SET 

EN DM 

IF 

EXITM 

ENDIF 

SET 

SET 

IF 

EXITM 

IF 

SET 

ENDIF 

IF 

SET 

ENDIF 

SET 

SET 

SET 

REPT 

IF 

EXITM 

ENDIF 

SET 

IF 



BLKSHF+1 

(BLKMSK SHL 1 ) OR 1 

BLKVAL/2 

BLKVAL=1 



BLKSHF+1 

(BLKMSK SHL 1) OR 1 

BLKVAL/2 - 

BLKVAL=i: 



BLKSHF+1 

(BLKMSK^ SHL 1) OR 1 

BLKVAL/2 

BLKVAL=1 



BLKSHF+1 : 

(BLKMSK SHL 1 ) OR 1 

BLKVAL/2 

BLKVAL=1 

BPB/1024 



16 

BLKVAL=1 



(EXTMSK SHL 1) OR 1 
BLKVAL/2 

ELKVAL=1 



(EXTMSK SHL 1) OR 1 

BLKVAL/2 

BLKVAL=1 

(MAXB+1) > 256 
(EXTMSK SHR 1) 

NOT NUL 



128 

BPB/32 



16 

DIRREM=0 



(DIRBLK SHR 1) OR 8000H 
DIRREM > DIRBKS 



Appendix C: Sample Basic I/O System 



+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 

8000+# 

+ 

0040+# 

+ 

+ 

+ 

+ 
' + 

+ 
C000+# 

+ 

+ 

+ 
0000+# 

+ 
+ 
+ 

0364+= 

+ 

+ 

+ 
0364+3A00 

+ 

0366+04 

+ 

+ 

+ 
0367+0F 

+ 

+ 

+ 
0368+01 

+ 

+ 

+ 
0369+FF00 

+ 

+ 

036B+7F00 

+ 
+ 

036D+C0 



DIRREM 
DIRREM 



DIRBLK 
DIRREM 
DIRREM 



DIRBLK 
DIRREM 
DIRREM 



DPB0 



SET 

ELSE 

SET 

ENDIF 

ENDM 

IF 

EXITM 

ENDIF 

SET 

IF 

SET 

ELSE 

SET 

ENDIF 

IF- -■■ 

EXITM 

ENDIF 

SET 

IF 

SET 

ELSE^ : 

SET 

ENDIF 

IF 

EXITM 

DPBHDR 

EQU 

ENDM 

DDW 

DW 

ENDM 

DDB 

DB 

ENDM 

DDB 

DB 

ENDM 

DDB 

DB 

ENDM 

DDW 

DW 

ENDM 

DDW 

DW 

ENDM 

DDB 

DB 



DIRREM-DIRBKS 


DIRREM=0 

(riRBLK SHR 1) OR 8000H 
DIRREM > DIRBKS 
DIRREM-DIRBKS 



DIRREM=0 ..■■■ 

(DIRBLK SHR 1) OR 8000H 
DIRREM > DIRBKS 
DIRREM-DIRBKS 



DIRREM=0 


$ jdisk parm block 

%sectors,<jsec per track> 

58 ;sec per track 

%blkshf,<;block shift> 

4 jblock shift 

%blkmsk,<;block mask> 

15 jblock mask 

%extmsk,<;extnt mask> 

.1 jextnt mask 

%(maxb+i)-i,<;disk size-i> 

255 jdisk sizf-1 

%(128)-1,<;DIRECT0RY max> 
127 DIRECTORY MAX 

%IIRBLK SHR 8,<;ALLOC0> 
192 JALLOC0 
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Appendix C: Sample Basic I/O System 



+ 
+ 

4 

036E+00 

4 

4 
4 

036F+0000 

4 
4 
4 

0371+0200 

4 
4 
00004= 

4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

4 
4 

0364+= 
0020+= 

00004= 
00004= 

4 
4 
4 



XLT0 



XLT0 

NXTSEC 
NXTBAS 

NELTST 

NELTS 

XLT0 



NXTSEC 

NXTSEC 

NELTS 

NXTBAS 
NXTSEC 
NELTS 



ENDM 
DDE 

DB 

ENDM 

DDW 

DW 

ENDM 

DDW 

DW 
ENDM 

11 ■.:■ 

EQU 

ELSE 

IF 

EQU 

ELSE 

SET 

SET 

GCD 

SET : 

SET 

EQU 

REPT 

IF 

DDB 

ELSE 

DDW 

ENDIF 

SET 

IF 

SET 

ENDIF 

SET 

IF 

SET 

SET 

SET 

ENDIF 

ENDM 

ENDIF 

ENDIF 

ENDM 

DISKDEF 



IF 
DPB1 EQU 
ALS1 EQU 
CSS1 EQU 
XLT1 EQU 

ELSE 
SECMAX SET 
SECTORS 



%DIRBLK AND 0FFR ,< 5ALLOCl> 
JALLOCl 

%(0)/4,<;CHECX SIZE> 





%2,<;0FFSET> 

2 

NUL 


= 






%SECTORS, 

SECTORS/GCDN 

NELTST 

SECTORS 
SECTORS < 256 
%NXTSEC4(l) 

%NXTSEC+(1) 



NXTSEC+O 

NXTSEC >= SECTORS 

NXTSEC-SECTORS 

NELTS-1 
NELTS = 
NXTBAS+1 
NXTBAS 
NELTST 



JCHECK SIZE 

> OFFSET 

5NO XLATE TABLE 

,-NO XLATE TABLE 



JTRANSLATE TABLE 



1,0 

NUL 

DPB0 

ALS0 

CSS0 

XLT0 

-(0) 
SIT 



^EQUIVALENT PARAMETERS 
JSAME ALLOCATION VECTOR SIZE 
JSAME CHECKSUM VECTOR SIZE 
J SAME TRANSLATE TABLE 



SECMAX+1 
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Appendix C: Sample Basic I/O System 



+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 

+ 
+ 
+ 
+ 

+ 

+ 
+ 

+ 
+ 
+ 
+ 

+ 

+. 

+ 
+ 
+ 
+ 

+ 
+ 
+ 
+ 

+ 
+ 
+ 

+ 
+ 
+ 

4 

+ 
+ 
+ 
-f 



ALS1 

ALS1 

CSS1 
BLKVAL 
BLKSHF 
BLKMSK 



BLKSHF 
BLKMSK 
BLKVAL. 

BLKVAL 
EXTMSK 



EXTMSK 
BLKVAL 



EXTMSK 



EXTMSK 

DIRREM 
DIRBKS 
DIRBLK 



DIRBLK 
DIRREM 
DIRREM 



SET 

IF 

SET 

ENDIF 

SET 

SET 

SET 

SET 

REPT 

IE 

EXITM 

ENDIF 

SET 

SET 

SET- 

SNDM 

SET 

SET * 

REPT 

IF 

EXITM 

ENDIF 

SET 

SET 

EN DM 

IF 

SET 

ENDIF 

IF 

SET 

ENDIF 

SET 

SET 

SET 

REPT 

IF 

EXITM 

ENDIF 

SET 

IF 

SET 

ELSE 

SET 

ENDIF 

EN DM 

DPBHDR 

DDW 

DDB 

DDB 

DDB 

DDW 

DDW 

DDB 

DDB 

DDW 



()/8 

( () MOD 8) NE 

ALS1+1 

()/4 

/128 





16 

BLKVAL=1 



BLKSHF+1 

(BLKMSK SHL 1) OR 1 

BLKVAL /2 

/1024 



16 

BLKVAL=1 



(EXTMSK SHL 1) OR 1 
BLKVAL/2 

> 256 

(EXTMSK SHR 1) 

NOT NUL 



732 


16 
DIRREM=0 



(EIRBLK SHR 1) OR S000H 
DIRREM > DIRBKS 
DIRREM-DIRBKS 







%sectors,<jsec per track> 
%blkshf,<;block shift> 
%blkmsk,<;block mask> 
%extmsk,<;extnt mask> 
%()-i, <;disx size-i> 

%()-l,<;DIRECTORY MAX> 
%IIRBLK SER 6,<;ALLOC0> 
%DIRBLK AND 0FFH,<»ALLOC1> 
%()/4,<;CEECK SIZE> 
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Appendix C: 


Sample B< 


aslc I/O 


System 


+ 




DDV 


% t <JOFFSET> 


+ 




IF 


NUL 


+ 


XLT1 


EQU 





+ 




ELSE 




+ 




IE 


= 


+ 


XLT1 


.EQU 





+ 




ELSE 




+ 


NXTSEC 


SET 





+ 


NXTBAS 


SET 





+ 




GCD 


^SECTORS, 


+ 


NELTST 


SET 


SECTORS /GCDN 


+ 


NELTS 


SET 


NELTST 


+ 


XLT1 


EQU 


.$ 


+ 




REPT 


SECTORS 


+ 




IF 


SECTORS < 256 


+ 




DDB 


2NXTSEC+(0) 


.+ * -. 




else: 




+ 




DDW 


%NXTSEC+(0) 


+ 




ENDIF 




+ 


NXTSEC 


SET 


NXTSEC+O 


+ 




IF ^ 


NXTSEC >= SECTO: 


+ ' 


NXTSEC 


SET" : 


NXTSEC-SECTORS 


+ 




ENDIF 




+ 


NELTS 


-SET 


NELTS-1 


+ 




IF 


NELTS = 


+ 


NXTBAS 


SET 


NXTBAS+1 


+ 


NXTSEC 


SET 


NXTBAS 


+ 


NELTS 


SET 


NELTST 


+ 




ENDIF 




Hh 




ENDM 




+ 




ENDIF 




+ 




ENDIF 




+ 


• 


ENDM 




0373 


TRAN: 

• 


DS 


2 


i 


i 


ENDEF 




0375+= 


BEG DAT 


EQU 


* 


0375+ 


DIRBUF 


• 


DS 128 


0000+# 


DSKNXT 


SET 





+ 




REPT 


NDISKS 


+ 




LDS 


ALV,%DSKNXT,ALS 


+ 




LDS 


CSV,%DSKNXT,CSS 


+ 


DSINXT 


SET 


DSKNXT+1 


+ 




ENDM 




+ 




LDS 


ALV,%DSKNXT,ALS 


+ 




DEFDS 


ALV0,%ALS0 


03F5+ 


ALV0: 


DS 


32 


+ 




ENDM 




+ 




ENDM 




+ 




LDS 


CSV,%DSKNXT,CSS 


+ 




DEFDS 


CSV0,%CSS0 


0415+ 


CSV0: 


DS 





+ 




ENDM 





;no xlatf table 
;no xlate table 



TRANSLATE TABLE 



JDIRECTORY ACCESS BUFFER 
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Appendix C: 


Sample Basic I/O 


System 












+ 




EN DM 














0001+# 


DSKNXT SET 


DSKNXT+1 












+ 




LDS 


ALV,%DSKNXT t ALS 












+ 




DEFDS 


ALV1, 


,%ALS1 










0415+ 


ALV1: DS 


32 














+ 




EN DM 
















+ 




ENDM 
















+ 




LDS 


CSV,%DSKNXT,CSS 












+ 




DEFDS 


CSV1, 


,%CSS1 










0435+ 


CSV1: DS 

















+ 




ENDM 
















+ 




ENDM 














0002+# 


DSKNXT SET 


DSKNXT+1 












+ 




ENDM 




t, '.:■ " 










0435+= 


ENDDAT ECU 


$*.-■:■ 


.' ". -> r - ■ ■ 










00C0+= 


DATS I Z UQU 


$-BEGDAT 










0435+00 


FORCE: DB 





; FORCE 1 


DUT LAST BYTE IN 


HEX FILE 




+ 




ENDM 




• - 










0436 




END 














0251 


ALLOVIT 


0020 


ALS1 


005F 


ALTRUB 


03F5 


ALV0 


0415 


ALV1 


0008 


BACKSP 


013A 


BADDEV 


0375 


BEGDAT 


0800 


BPB 


0184 


CLK60BZ 


0060 


CMD1 


0083 


CMD2 


02FF 


CNT60 


0048 


COLDSTART 


0056 


CONIN 


005F 


CONOUT 


004D 


CONST 


0000 


CSS1 


0415 


CSV0 


0435 


CSV1 


0040 


DATA0 


0048 


DATA1 


0050 


DATA2 


00C0 


DATSIZ 


020A 


DELAY 


020B 


DELAY2 


0375 


DIRBUF 


033\E 


DISKNO 


033C 


DMAAD 


0343 


DNSTY 


02C9 


DO STEP 


0364 


DPB0 


0364 


DPB1 


0344 


DPBASE 


0344 


DPE0 


0354 


BPE1 


008E 


DSPTCH 


033F 


DUMMY 


0435 


ENDDAT 


0340 


ERRORS 


029B 


ERRTN 


. 0148 


EXITREGION 


0000 


FALSE 


0085 


FLAGSET 


0435 


FORCEf 
INITFW 


0061 


HA DDR 


02DC 


HEADLOAD 


01BB 


HOME 


01BE 


HOMEL 


00B3 


01AA 


INTDONE 


0165 


INTHND 


0335 


INTMSK 


0300 


INTSTK 


0082 


LADDR 


020D 


LDXA 


00B4 


LIST 


00FF 


MAXB 


014F 


MAX CONSOLE 


02F6 


NEEDDLY 


0002 


NMBCNS 


0006 


NMBDEV 


01A2 


NOT1SEC 


0192 


NOTICKN 


02D7 


OUTX 


FFFD 


PDISP 


0004 


PLCI0 


0005 


PLCI2 


0002 


PLCO0 


0003 


PLC02 


0001 


PLDSK 


0000 


PLLPT 


007C 


POLCI0 


00D9 


P0LCI2 


00AB 


POLCO0 


0119 


P0LC02 


0293 


POLDSK 


0121 


POLLDEVICE 


0063 


POLL 


00D1 


POLLPT 


0341 


PORT 


0336 


PREEMP 


0342 


PRTOUT 


0084 


PT0IN 


0096 


PT0OUT 


007C 


PT0ST 


009D 


PT0WAIT 


00B4 


PTIOUT 


00C2 


PT1XX 


00E1 


PT2IN 


00F3 


PT20UT 


00D9 


PT2ST 


010B 


PT2WAIT 


0066 


P TEL J MP 


005D 


PUNCH 


0054 


READER 


0235 


READ 


02A7 


REDO 


0010 


RPB 


007F 


RUBOUT 


0278 


RWWAIT 


0337 


SCRAT 


033B 


SECTOR 


021D 


SECTRAN 


0204 


SEEKRT 


01CC 


SELDSK 


013C 


SELMEMORY 


022F 


SETDMA 


0217 


SETSEC 


01FC 


SETTKX 


01F6 


SETTRK 


0263 


SIN 


0020 


SPACE 


01 3D 


STARTCLOCK 


0060 


STAT 


02C3 


STEP 


0143 


STOPCLOCK 


0041 


STS0 


0049 


STS1 


0051 


STS2 


0330 


SVDHL 


0332 


SVDSP 


0152 


SYSTEMINIT 


00 6F 


TBLJMP 


0334 


TICKN 


0337 


TRACK 


0338 


TRAK1 


0339 


TRAK2 


033A 


TRAK3 


0373 


TRAN 


FFFF 


TRUE 


0241 


TRYAGN 


005F 


ULINE 


023C 


VAITIO 


0048 


VARMSTA 


0003 


WBOOT 


023A 


WRITE 


0129 


X010 


008D 


XDELAY 


JFFA 


XDOS 


0000 


XLT0 


0000 


XLT1 
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Sample Page Relocatable Program 



This appendix contains a sample page relocatable program. It 
illustrates the required use of ORG statements to access the BDOS and 
the default file control block. Note that the initial ORG is at zero. 
Its purpose is to establish the equate for BASE, the base of the 
relocatable segment. Next an ORG 100H statement establishes the 
actual beginning of code for the program. 



It is VERY important 
references! Do not 
this example BASE is 
If the user program 



tb""use BASE to offset all relative page zero 
make a- call to absolute 0005H for BDOS calls. In 
used to offset the BDOS, FCB, and BUFF equates, 
needed todetermine the top of its memory segment 



the following equate and code sequence should be used: 



MEMSIZE EQU- 



B AS Eh- 6 



LHLD 



MEMSIZE ?HL = TOP OF MEMORY SEGMENT 



The following procedure shows how to generate a page relocatable file 
for this example: 

* Prepare the user program, DUMP. ASM in this example, with 
proper origin statements as described above. 

* Assuming a system disk in drive A: and the DUMP. ASM file 
is on drive B:, enter the commands- 

A>MAC B:DUMP $PP+S 

JASSEMBLE THE DUMP. ASM FILE, LIST WITH SYMBOL TABLE 
A>ERA B:DUMP.HX0 
A>REN B : DUMP. HX0=B: DUMP. HEX 
A>MAC B:DUMP $PZSZ+R 

JASSEMBLE THE DUMP. ASM FILE AGAIN OFFSET BY 100H 

JTHE OFFSET IS GENERATED WITH THE +R MAC OPTION 
A>PIP B :DUMP . HEX=B : DUMP .HX0 [I ] .B :DUMP .HEX [H] 

^CONCATENATE THE HEX FILES 
A>GENMOD B:DUMP.HEX B:DUMP.PRL 

JGENERATE THE RELOCATABLE DUMP.PRL FILE 
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0000 
0000 

0100 

0005 

0001 

0002- 

0009 

000B 

000F 

0014 

005C 
0080 



000D 
000A 



005C 
005D 
0065 
0068 
006B 
007C 
007D 



0100 210000 

0103 39 

0104 221A02 

0107 315C02 

010A CDC101 
010D FEFF 
010F C21B01 



0112 111801 
0115 CD9C01 
0118 C35101 



BASE. 



BDOS 

CONS 

TYPEF 

PRINT! 

BRKF 

OPENF 

READF 

• 

FCB 
BUFF 



CR 

LF 



FCBDN 
FCBFN 
FCBFT 
FCBRL 
FCBRC 
FCBCR 
FCBLN 



PAGE 

TITLE 'File Dump 
FILE DUMP PROGRAM, 
PRINTS IN HEX 



Program ' 
READS AN 



INPUT FILE AND 



COPYRIGHT (C) 1975. 1976, 1977, 1978, 1979 

DIGITAL RESEARCH 

BOX 579, PACIFIC GROVE 

CALIFORNIA, 93950 



ORG 
EQU 

ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 



0000H J BASE OF RELOCATABLE SEGMENT 

0100H ;base of mp/m program area 

BASE+5 ?DOS ENTRY POINT 

l ;read console 

2 5TYPE FUNCTION 

9 J BUFFER PRINT ENTRY 

11 ; BREAK KEY FUNCTION 

15 JFILE OPEN 

20 JREAD FUNCTION 

BASE+5CHJFILE CONTROL BLOCK ADDRESS 
BASE+80H; INPUT DISK BUFFER ADDRESS 



NON GRAPHIC CHARACTERS 

EQU 0DH 5 CARRIAGE RETURN 

EQU 0AH JLINE FEED 

FILE CONTROL BLOCK DEFINITIONS 

EQU FCB+0 JDISK NAME 

EQU FCB+1 JFILE NAME 

EQU FCB+9 JDISK FILE TYPE (3 CHARACTERS) 

EQU FCB+12 JFILE 'S CURRENT REEL NUMBER 

EQU FCB+15 JFILE'S RECORD COUNT (0 TO 128^ 

EQU FCB+32 J CURRENT (NEXT) RECORD NUMBER 

EQU FCB+33 ?FCB LENGTH 

SET UP STACK 

LXI H,0 

DAD SP 

ENTRY STACK POINTER IN HL FROM THE CCP 

SHLD OLDSP 

SET SP TO LOCAL STACK AREA (RESTORED AT FINIS) 

LXI SP,STKTOP 

READ AND PRINT SUCCESSIVE BUFFERS 

CALL SITUP J SET UP INPUT FILE 

CPI 255 J255 IF FILE NOT PRESENT 

JNZ OPENOK JSKIP IF OPEN IS OK 



FILE NOT THERE, GIVE ERROR 

LXI D,OPNMSG 

CALL ERR 

JMP FINIS JTO RETURN 



MESSAGE AND RETURN 
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Program 




OPENOK 


. 


JOPEN 


OPERATION OK, SET BUFIER INDEX 


011B 3E80 




MVI 


A,80H 




011D 321802 




STA 


IBP 


J SET BUFFER POINTER TO 80H 




• 

t 


EL CONTAINS NEXT ADDRESS TO PRINT 


0120 210000 


• 
GLOOP: 


LXI 


H,0 


J START WITH 0000 


0123 E5 




PUSH 


H 


JSAVE LINE POSITION 


0124 CDA201 




CALL 


GNB 




0127 El 




"POP 


fi 


? RECALL LINE POSITION 


0128 DA5101 




JC 


FINIS 


5 CARRY SET BY GNB IF END FILE 


012B 47 




MOV 


B,A 






• 
t 


PRINT 


HEX VALUES 




• 
y 


CHECK 


FOR LINE 


FOLD 


012C 7D 




MOV 


A,L 




012D E60F 




ANI 


0FH 


J CHECK LOW 4 BITS 


012F C24401 




JNZ 


NONUM 






• 


PRINT 


LINE NUMBER 


0132 CD7201 


• 


CALL 


CRLF 






• 


CHECK 


FOR BREAK KEY 


0135 CD5901 




CALL 


BREAK 






• 

r 


ACCUM 


LSB = 1 


IF CHARACTER READY 


0138 0F 




RRC 




JINTO CARRY 


0139 DA5101 


• 


JC 


FINIS 


J DON'T PRINT ANY MORE 


013C 7C 


i 


MOV 


A,H 




013D CD8F01 




CALL 


PHEX 




0140 7D 




MOV 


A,L 




0141 CD8F01 


NONUM: 


CALL 


PHEX 




0144 23 




INX 


H 


JTO NEXT LINE NUMBER 


0145 3E20 




MVI 


A,' ' 




0147 CD6501 




CALL 


PCHAR 




014A 78 




MOV 


A.B 




014B CDSF01 




CALL 


PHEX 




014E C32301 




JMP 


GLOOP 





0151 
0154 
0157 



CD7201 
2A1A02 
F9 



0158 C9 



FINIS 



END OF DUMP, RETURN TO CCP 

(NOTE THAT A JMP TO 0000H REBOOTS) 

CALL CRLF 

LHLD OLDSP 

SPHL 

STACK POINTER CONTAINS CCP'S STACK LOCATION 

ret ;to THE CCP 



SUBROUTINES 



0159 E5D5C5 
015C 0E0B 
015E CD0500 
0161 C1D1E1 



BREAK: J CHECK BREAK KEY (ACTUALLY ANY KEY WILL DO) 
PUSH H! PUSH D! PUSH BJ ENVIRONMENT SAVED 
MVI C,BRKF 
CALL BDOS 
POP B! POP D! POP B; ENVIRONMENT RESTORED 
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0164 C9 


• 


RET 




PCHAH: 


5PRINT A CHARACTER 


0165 E5D5C5 




PUSH fi! PUSH D! PUSH Bj SAVED 


0168 0E02 




■MVI C.TYPEF * 


016A 5F 




MOV E,A 


016B CD0500 




CALL BDOS 


016E C1D1E1 




POP B! POP D! POP B5 RESTORED 


0171 C9 


• 


RET 




.. CRLF: 


.. .:._.■ . 


0172 3E0D' 




MVI " • '* A,CR 


0174 CD6501 




CALL PCHAH...:- . 


0177 3E0A 




MVI A, LP . _ 


0179 CD6501 




CALL PCHAR 


017C C9 


• 
t 


RET ::::; 




• 
PNIB: 


JPRINT NIBBLE IN REG A 


017D E60F 




AN I 0FH JLOW 4 BITS 


017F FE0A 




CPI 10 


0181 D28901 




JNC P10 




• 
> 


LESS THAN OR EQUAL TO .9 


0184 C630 




ADI ■'.■ '0' 


0186 C38B01 


• 


JMP PRN 




t 

• 


GREATER OR EQUAL TO 10 


0189 C637 


P10: 


ADI 'A' - 10 


018B CD6501 


PRN: 


CALL PCHAR 


018E C9 


• 


RET 




PHEX: 


JPRINT HEX CHAE IN REG A 


018F F5 




PUSH PSW 


0190 0? 




RRC 


0191 0F 




RRC 


0192 0F 




RRC 


0193' 0F 




RRC 


0194 CD7D01 




CALL PNIB JPRINT NIBBLE 


0197 Fl 




POP PSW 


0198 CD7D01 




CALL PNIB 


019B C9 


• 


RET 




ERR: 


JPRINT ERROR MESSAGE 




• 


D,E ADDRESSES MESSAGE ENDING 


019C 0E09 




MVI C t PRINTF JPRIN 1 


019E CD0500 




CALL BDOS 


01A1 C9 


• 


RET 




• 
r 

GNB: 


;get next byte 


01A2 3A1802 




LDA IBP 


01A5 FE80 




CPI 80H 


01A7 C2B301 




JNZ G0 




• 

• 


READ ANOTHER BUFFER 



JPRINT PUFFER FUNCTION 
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01AA 


CDCE01 




01AD 


B7 




01AE 


CAB301 


• 


01B1 


37 


i 


01B2 


C9 


• 
G0 


01B3 


5F~ 




01B4 


1600 




01B6 


3C 




01B? 


321802 


• 
» 


01BA 


218000 


• 
y 


01BD 


19 


• 


01BE 


7E 


» 

• 


01BF 


B7 


i 


01C0 


C9 


• 

SE 1 

• 


01C1 


AF 




01C2 


327C00 


• 


01C5 


115C00 


» 


01C8 


0E0F 




01CA 


CD0500 


• 


01CD 


C9 


• 

1 

DI 


01CE 


E5D5C5 




01D1 


115C00 




01D4 


0E14 




01D6 


CD0500 




01D9 


C1D1E1 




01DC 


C9 





CALL DISKR 

ORA A J ZERO VALUE IE READ OK 

JZ G0 JFOR ANOTHER BYTE 

END OF DATA, RETURN WITH CARRY SET FOR EOF 

STC 

RET 

;READ THE BYTE AT BUFF+REG A 

MOV E,A JLS BYTE OF BUFFER INDEX 

MVI D,0 JDOUBLE PRECISION INDEX TO DE 

INR A ?INDEX=INDEX+1 

STA IBP 5 BACK TO MEMORY 

POINTER IS INCREMENTED 

SAVE THE CURRENT FILE ADDRESS 

LXI H ,BUFF 

DAD D 

ABSOLUTE CHARACTER ADDRESS IS IN HL 

MOV A , M 

BYTE IS IN THE ACCUMULATOR 

ORA A ,'RESET CARRY BIT 

RET 



SETUP: JSET UP FILE 

OPEN THE FILE FOR INPUT 

XRA A J ZERO TO ACCUM 

STA FCBCR J CLEAR CURRENT RECORD 



LXI 
MVI 
CALL 
255 IN 
RET 



D t FCB 
C t OPENF 
BDOS 
ACCUM IF 



OPEN ERROR 



1: JREAD DISK FILE RECORD 
PUSH H! PUSH D! PUSH B 
LXI D,FCB 
MVI C r READF 
CALL BDOS 
POP B! POP D! POP fi 
RET 

J FIXED MESSAGE AREA 

SIGNON: 
01DD 46494C4520 DB 'FILE DUMP MP/M VERSION 1.0$' 

OPNMSG: 
01F8 0D0A4E4F20 DB CR,LF,'NO INPUT FILE PRESENT ON DISK$ ' 



0218 
021A 



021C 



IBP: 
OLDSP: 



STKTOP: 



VARIABLE AREA 
DS 2 
DS 2 

STACK AREA 
DS 64 



J INPUT BUFFER POINTER 
,'ENTRY SP VALUE FROM CCP 



JRESERVE 32 LEVEL STACK 
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oca tab] 


Le Program 










025C 


• 

END 














0000 EASE 


0005 BDOS 


0159 


BREAK 


000B 


ERKF 


0080 


BUFF 


0001 CONS 


000D CR 


0172 


CRLF 


01CE 


DISKR 


019C 


ERR 


005C FCB 


007C FCBCR 


005C 


FCBDN 


005D 


FCEFN 


0065 


FC5FT 


007D FCBLN 


006B FCBRC 


0068 


FCBRL 


0151 


FINIS 


01B3 


G0 


0123 GLOOP 


01A2 GNB 


0218 


IBP 


000 A 


LF 


0144 


NONUM 


021A OLDSP 


000F OPENF 


011B 


OPENOK 


0118 


OPNMSG 


0169 


P10 


0165 PCEAR 


018F PHEX 


017D 


PNIB 


0009 


PRINTF 


01SB 


PRN 


0014 READF 


01 CI SETUP 


01DD 


SIGNON 


025C 


STKTOP 


0002 


TYPEF 
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Sample Resident System Process 



This appendix contains a sample resident system process. It 
illustrates the required structure of a resident system process as 
veil as the BDOS/XDOS access mechanism. 

The first two "bytes of a resident system process will contain the 
address of the* BDOS/XDOS entry point. The address is filled in "by the 
loader* providing a simple means for a resident system process to 
access, the BDOS/XDOS "by loading HL from the base of the program and 
then executing a PCHL instruction. 

The process descriptor for the resident system process must 
immediately follow the address of the BDOS/XDOS entry point. Observe 
the manner in which the process descriptor is initialized in the 
example. The DS's are used where storage is simply allocated. The 
DB's and DW's are used where data in the process descriptor must he 
initialized. Note that the stack pointer field of the process 
descriptor points to the address immediately following the stack 
allocation. The actual process entry point is contained at that 
address. 

The procedure to produce a resident system process file closely 
follows that illustrated in the previous appendix on page relocatable 
urograms. The only exception to the procedure is that the GENMOD 
output file should have a type of 'RSP' rather than 'PEL'. 
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PAGE 

TITLE 'Type File on Console' 

FILE TYPE PROGRAM, READS AN INPUT FILE AND PRINTS 
IT ON THE CONSOLE 

COPYRIGHT (C) 1979 

DIGITAL RESEARCH 

P.O. BOX 579 

PACIFIC GROVE, CA 95950 



STANDARD RSP START 

CONTROL-Z USED FOR EOF 

BDOS CONOUT FUNCTION # 

"" PRINT BUFFER 
READ NEXT RECORD 
OPEN FCB 

J PARSE FILE NAME 
MAKE QUEUE 
READ QUEU1 

', SIT PRIORITY 
DETACH CONSOLE 



0000 


ORG 


0000H • 






001A = 


CTLZ EQU 


flAH 




• 

1 


0002 = 


CONOUT EQU 


■2- 






0009 = 


PRINTF EQU 


9 






0014 = 


READF EQU 


20 






000F = 


OPENF EQU 


15 . 






0098 = 


PARSEFN •:,... 


EQU 


152 




0086 = 


MKQUE EQU 


134 




» 


0089 = 


RDQUE EQU 


137 




• 
t 


0091 = 


STPRIOR 


EQU 


145 




0093 = 


DETACH EQU 


147 




• 



0000 



0002 
0004 
0005 
0006 
0008 

0010 
0011 
0012 
0014 
0016 
0018 
0019 
001B 
001C 
001E 



J BDOS ENTRY POINT ADDRESS 
BDOSADR: 

DS 2 



TYPE PROCESS DESCRIPTOR 



0000 

00 

0A 

0201 

5459504520 



TYPEPD 



2501 



DW 
DB 
DB 
DW 
DB 

PDCONSOLE: 
DS 
DS 
DS 
DS 
DW 
DS 
DS 
DS 
DS 
DS 







10 

STACK+46 

'TYPE 

1 

1 

2 

2 

BUFF 

1 

2 

1 

2 

2 



IDR WILL FILL THIS IN 



LINK 

STATUS 

PRIORITY (INITIAL) 

STACK POINTER 

NAME 

CONSOLE 

MEMSEG 

B 

THREAD 

DISK SET LMA ADDRESS 

USER CODE & DISK SELECT 

DCNT 

SEARCHL 

SEARCHA 

SCRATCH 



TYPE LINKED QUEUE CONTROL BLOCK 



TYPELQCB: 
0020 0000 DV 

0022 5459504520 DB 



e 

'TYPE 



J LINK 

J NAME 
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002A 


4800 




DW 




72 ; 


fSGLEN 


002C 


0100 




DW 




i ; 


NMBMSGS 


002E 






DS 




2 ; 


EQPH 


0030 






DS 




2 ; 


NQPfi 


0032 






DS 




2 ; 


ME 


0034 






DS 




2 ; 


MT 


0036 






DS 




2 ; 


Bfl 


0038 






DS 




74 ; 


BUF (72 






J TYPE USER 


QUEUE CONTROL BLOCK 








TYPEUSERQCB: 








0082 


2000 




DV- 




TYPELQCB J 


POINTER 


0084 


8600 




DW 




FIELD J 


MSGADR 



00D0 8800 
00D2 0401 



01A5 2A0000 
01A8 E9 



FIELD FOR MESSAGE READ FROM TYPE LINKED QCB 

FIELD: 

,' DISK SELECT 

; CONSOLE 

J MESSAGE BODY 

PARSE FILE NAME CONTROL BLOCK 



0086 


DS 
CONSOLE: 


1 


0087 


DS 
FILENAME: 


1 


0088 


DS 


72 



PCB: 



DW 
DW 



FILENAME 
FCB 



t FILE NAME ADDRESS 

J FILE CONTROL BLOCK ADDRESS 



TTPE STACK & OTHER LOCAL DATA STRUCTURES 
STACK: 



00 D4 




DS 


46 


0102 A901 




DW 


TYPE 


0104 


FCB: 


DS 


n 


0125 


BUFF: 


DS 


128 



J 23 LEVEL STACK 

J PROCESS ENTRY POINT 

J FILE CONTROL BLOCK 

J FILE BUFFER 



BDOS CALL PROCEDURE 

BDOS: 

LHLD BDOSADR 
PCHL 

TYPE MAIN PROGRAM 
TYPE: 



J HL = BDOS ADDRESS 
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01A9 


0186 




MVI 


C t MKQUE 




01AB 


112000. 




IX I 


D.TYPELQCB 




01AE 


CDA501 




CALL 


BDOS j 


' PAKE TYPELQCB 


01B1 


0E91 




MVI 


CSTPRIOR 




01B3 


11C800 




LXI 


D,200 




01B6 


CDA501 




CALL 


BDOS 5 


' SET PRIORITY TO 200 






FOREVER : 






01B9 


0E89 




MVI 


C,RDQUE 




01BB 


118200 




LXI 


D.TYPEUSERQCB 




01BE 


CDA501 




CALL 


BDOS ; 


READ FROM TYPE QUEUE 


01C1 


0E98 




MVI 


CPARSEFN 




01C3 


11D000 




LXI 


D,PCB 




01C6 


CDA501 




CALL 


BDOS j 


PARSE THE FILE NAME 


01C9 


23 




INX : 


fi 




01CA 


7C 




MOV 


A,H 




01CB 


B5 




ORA 


L j 


' TEST FOR 0FFFFH 


01CC 


CA0E02 




JZ 


ERROR 




01CF 


3A8700 




LDA 


CONSOLE 




01D2 


321000 




STA . 


PDCONSOLE ; 


TYPEPD. CONSOLE = CONSOLE 


01D5 


0E0F 




MVI 


C,OPENF 




01D7 


110401 




LXI 


D,FCB 




01DA 


CDA501 




CALL 


BDOS ; 


OPEN FILE 


01DD 


3C 




INR 


A ; 


TEST RETURN CODE 


01DE 


CA0E02 




JZ 


ERROR , 


' IF IT WAS 0FFH, NO FILE- 


01E1 


AF 




XRA 


A ; 


ELSE, 


01E2 


322401 




STA 


FCB+32 S 


SET NEXT RECORD TO ZERO 






. NEW$SECTOR: 






01E5 


0E14 




MVI 


C f READF 




01E? 


110401 




LXI 


D,FCB 




01EA 


CDA501 




CALL 


BDOS 3 


READ NEXT RECORD 


01ED 


B7 




ORA 


A 




01EE 


C 21 602 




JNZ 


DONE | 


EXIT IF EOF OR ERROR 


01F1 


212501 




LXI 


B,BUFF I 


POINT TO DATA SECTOR 


01F4' 


0E80 




MVI 


C,128 ; 


GET BYTE COUNT 






NEXT^BYTE: 






01F6 


7E 




MOV 


a,m ; 


GET THE BYTE 


0177 


5F 




MOV 


E,A 5 


SAVE IN E 


01F8 


FE1A 




CPI 


CTLZ 




01FA 


CA1602 




JZ 


DONE 


1 EXIT IF EOF 


01FD 


C5 




PUSH 


B 3 


SAVE BYTE COUNTER 


01FE 


E5 




PUSH 


H 


1 SAVE ADDRESS REGISTER 


01FF 


0E02 




MVI 


C.CONOUT 




0201 


CDA501 




CALL 


BDOS 


1 WRITE CONSOLE 


0204 


El 




POP 


fi i 


r RESTORE POINTER 


0205 


CI 




POP , 


b ; 


' AND COUNTEE 


0206 


23 




INX 


fi 


1 BUliP POINTER 


0207 


0D 




BCR 


C 


' DCl BYTE COUNTER 


0208 


C2F601 




JNZ 


NEXT^BYTE j 


MORE IN THIS SECTOR 


020B 


C3E501 


ERROR 


JMP 


NEW^SECTOR 


; ELSE, WE NEED A NEW ONE 


020E 


111102 




LXI 


D,ERR$MSG 


J FOINT TO EBROR MESSAGE 
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Appendix E: Sample Resident System Process 



0211 0E09 
0213 CDA501 



0216 0E93 
0218 CDA501 
021B C3B901 



DONE: 



MVI 
CALL 



MVI 

CALL 

JMP 



ERR$MSG: 
021E 0D0A46696C DB 



0240 
0000 BDOSADR 01A5 
001A CTLZ 0093 
0104 FCB 0086 
01E5 NEWSICTOR 01F6 
0010 PDCONSOLE 0009 
0091 STPRIOR 0020 
0082 TYPEUSERQCB 



C, PRINT? 
BLOS 



C, DETACH 

BDOS 

FOREVER 



J GET FUNCTION CODE TO PRINT 



J DETACH THE CONSOLE 



0Dfi t 0AE, 'File Not Found or Bad File Name:?' 



END 














BDOS 


0125 


BUFF 


0002 


CONOUT 


0087 


CONSOLE 


DETACH 


0216 


DONE 


021E 


ERRMSG 


020E 


ERROR 


FIELD 


0088 


FILENAME 


01B9 


FOREVER 


0086 


MKQUE 


NEXTBYTE 


000F 


OPENF 


0096 


PARSEFN 


00D0 


PCB 


PRINTF 


0089 


RDQUE 


0014 


READF 


00D4 


STACK 


TYPELQCB 


01A9 


TYPE 


0002 


TYPEPD 
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